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Avant-propos 


Ce livre vous propose un éventail de jeux exploitant pleinement les possibilités 
graphiques et sonores des AMSTRAD CPC 464, CPC 664 et CPC 6128. 


Son rôle ne se limite cependant pas à celui d'un simple recueil de programmes. 
Tout d’abord, il vous offre la possibilité d'adapter chacun d’entre eux en fonction 
de vos goûts et de vos désirs, et cela sans même que vous n'ayez besoin de 
connaître le Basic. C'est dans ce but que chaque jeu est accompagné de nom- 
breuses suggestions de personnalisation qui vous sont expliquées dans le moin- 
dre détail. 


Par ailleurs, si vous avez quelques rudiments de Basic, ce livre peut constituer 
une bonne occasion de vous perfectionner en vous amusant et de vous initier 
aux méthodes particulières de programmation des jeux. C'est dans cette optique 
que nous avons préféré présenter les programmes par ordre de difficulté crois- 
sante plutôt que de les classer par ‘’genre”’. Chacun d’entre eux est analysé ins- 
truction par instruction et les ‘’techniques’” employées sont clairement expliquées. 
Vous pourrez ainsi acquérir progressivement et agréablement les connaissances 
et le savoir-faire qui vous seront précieux pour développer vos propres jeux ou 
pour modifier profondément ceux qui vous sont proposés. 


Les programmes ont été soigneusement vérifiés et leurs listes réalisées directe- 
ment à partir de l'AMSTRAD. Vous pouvez donc les recopier en toute confiance. 
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Introduction 


Ce livre peut s’utiliser de diverses manières. Afin que vous puissiez en tirer le meil- 
leur profit, nous vous donnons ici quelques indications sur la façon dont il est 
constitué. 


Un premier chapitre vous donne des conseils pour la frappe des programmes 
proposés. Si vous ne connaissez pas le Basic, sa lecture vous sera très profita- 
ble. Elle vous aidera à détecter les erreurs de frappe que vous aurez pu commet- 
tre lors de la recopie d’un des jeux. 


Les chapitres 2 à 19 correspondent chacun à un jeu. Ils sont tous structurés 
de la même manière en cinq paragraphes : 


e paragraphe 1 : le jeu. Vous y trouverez le scénario du jeu, ses règles et tout 
ce qu'il faut savoir pour y jouer avec votre AMSTRAD. Généralement, vous 
y rencontrerez une photo noir et blanc (dans le texte) ou une référence à une 
photo couleur placée ‘’hors-texte’’ ; dans les deux cas, elle présentera un exem- 
ple de l’écran pendant le déroulement d'une partie. 


e paragraphe 2 : le programme. {Il s'agit de sa liste). 


XI 


paragraphe 3 : si vous souhaitez personnaliser ce programme. De nombreu- 
ses possibilités d'adaptation vous sont proposées. Elles ne requièrent absolu- 
ment aucune connaissance du Basic. Dans le cas où cela présente de l'inté- 
rêt, nous vous indiquons comment utiliser une poignée de jeu. 


paragraphe 4 : description du programme. Vous y verrez tout d'abord la ‘‘liste 
des techniques" employées dans le programme. Il s’agit là de techniques spé- 
cifiques à la programmation des jeux. Chacune d’entre elles fait l’objet d’une 
description très détaillée en annexe. Cette façon de procéder nous a évité de 
répéter des explications nécessairement analogues d'un chapitre à un autre. 
Vient ensuite une analyse très complète du programme et des différents sous- 
programmes (dont nous avons fait un très large usage afin de mieux mettre 
en évidence le fonctionnement du jeu). Ces derniers sont décrits dans l’ordre 
où ils sont appelés dans le programme principal (et non pas nécessairement 
dans l'ordre des numéros de ligne). Notez que les structures de boucle sont 
mises en évidence par une typographie appropriée. D'autre part, nous avons, 
dans la mesure du possible, donné à chaque programme une structure com- 
parable. Notamment, vous trouverez toujours un sous-programme d'initialisa- 
tion du jeu (situé en 9000), un sous-programme d'initialisation de partie (situé 
en 8000)... 


paragraphe 5 : liste des variables. On y précise le rôle de chaque variable, à 
l'exception de quelques unes, rangées dans la rubrique ‘‘variables auxiliaires'’ ; 
ce sont là des variables n'ayant qu'un rôle secondaire et qui n'apparaissent 
que très localement : compteur de boucle FOR ayant peu d'instructions, varia- 
ble chaîne destinée à lire une réponse O/N, etc... 


Viennent enfin les différentes annexes dont nous avons parlé plus haut. Leur 
ensemble constitue une initiation à la programmation des jeux. Vous y appren- 


dre 


z comment jouer avec le hasard, animer des mobiles, les commander par le 


clavier et vous verrez comment connaître le contenu d’un emplacement quelcon- 
que de l'écran. 


XII 


1 


Conseils pour la frappe 
des programmes 


Ce petit chapitre vous donne quelques conseils pour faciliter cette opération sou- 
vent laborieuse qu'est la frappe des programmes. 


1. Sachez profiter de l'AUTO 


N'hésitez pas (si vous la connaissez) à utiliser la commande AUTO qui vous évite 
d’avoir à taper les numéros de ligne. Nos listes sont numérotées de 10 en 10 
(sauf erreur de notre part), avec changement de numérotation à chaque 
sous-programme. 


Il vous suffit donc de taper : 


AUTO 100 


avant de commencer la frappe. Vous obtiendrez ainsi ‘’automatiquement”” les 
numéros de ligne : 100, 110, 120, etc... 


A la fin de l'entrée de chaque sous-programme (c’est-à-dire quand apparaît dans 
la liste, une ligne comportant beaucoup de tirets), vous quitterez le mode AUTO 
en frappant deux fois la touche ESC. Puis, vous exécuterez à nouveau la com- 
mande AUTO avec un nouveau numéro ; par exemple : 


AUTO 8000 


vous fournira automatiquement les numéros 8000, 8010, 8020, … 


2. Pensez aux ‘sauvegardes’ 


Bien entendu, avant de commencer à exécuter votre programme, il est néces- 
saire de le vérifier attentivement à l'écran ou sur imprimante (si vous avez la chance 
d'en posséder une). Mais il est en outre indispensable que vous en fassiez une 
sauvegarde sur cassette ou sur disquette avant de commencer à l'exécuter. 


En effet, si pour une raison quelconque, votre AMSTRAD se ‘’plante’’, vous n'avez 
pas d'autre ressource que de ‘‘’revenir à l’état initial’” à l’aide des touches CTRL, 
SHIFT et ESC (on garde CTRL et SHIFT enfoncées, tandis qu'on appuie sur ESC). 
Cela produit le même résultat qu’une coupure momentanée de votre AMSTRAD. 
Dans ces conditions, vous voyez que vous perdez ainsi le programme que vous 
avez patiemment entré en mémoire. Si vous avez pris soin de le sauvegarder au 
préalable, il vous suffit de le recharger puis d'en rechercher les anomalies. 


Notez que cette technique est également utilisable pour des sauvegardes ‘‘par- 
tielles’’. Celles-ci sont conseillées lorsque : 


— vous n'avez pas le temps de taper tout votre programme en une seule fois, 


— vous craignez d'être interrompu par une ‘fausse manip'', une coupure 
secteur,… 


— vous souhaitez faire une ‘mise au point progressive'” comme indiqué ci-après. 


3. Recherche des anomalies 


Il se peut que, malgré vos vérifications scrupuleuses, votre programme ne fonc- 
tionne pas au premier coup. Certes, dans ce cas, vous pouvez continuer à effec- 
tuer une vérification ligne à ligne de l'ensemble du programme. Cependant, la plu- 
part du temps, il vous sera possible de mieux cerner l’anomalie, en fonction des 
‘messages’ fournis par Basic. 


a) Lorsque vous obtenez un message du type : 


Syntax error in xxxx 
(où xxxx désigne un numéro de ligne) 


Celui-ci signifie ‘‘’erreur de syntaxe en xxxx'’. lci, aucun doute n'est permis. La 
ligne en question comporte une erreur. Une simple comparaison avec la liste doit 
vous permettre de la déceler. 


Notez qu’à la suite de ce message, Basic vous affiche la ligne coupable et vous 
met automatiquement en mode ‘‘édition’’ sur cette ligne (cela se reconnaît à la 
présence du curseur. 


Si vous savez comment effectuer des corrections dans ce mode (touches ESC, 
CLR, ..), vous pouvez le faire directement. Si ce n’est pas le cas, sachez qu'il 
vous suffit alors de taper ‘’ENTER’’ pour quitter ce mode et de taper à nouveau 
l'instruction en question (précédée de son numéro de ligne). 


b) Lorsque vous obtenez un message du type 


Improper argument in xxxx 


Cela signifie qu’en ligne xxxx, vous employez une instruction où une fonction à 
laquelle vous fournissez des valeurs qui ne conviennent pas (par exemple un 
numéro supérieur à 26 pour PAPER, une valeur négative pour LOCATE, etc...). 


Commencez bien entendu par vérifier la ligne concernée. Si elle ne comporte pas 
d'erreur, vous pouvez en déduire que certaines ‘’variables'” (apparaissant dans 
cette instruction) ont pris de mauvaises valeurs. 


Si vous connaissez un peu le Basic et la fonction concernée, vous pouvez faire 
écrire, en mode direct, le contenu des variables. Par exemple, si l'instruction est : 


LOCATE X,Y 


vous pouvez, après le message d'erreur (et après avoir pressé ‘ENTER’ pour quit- 
ter le mode édition) taper simplement, sans numéro de ligne : 


PRINT X,Y 


Vous devriez ainsi découvrir la variable coupable. || vous faut ensuite vérifier tou- 
tes les instructions dans lesquelles la variable (ou les variables si, ne connaissant 
pas Basic, vous ne savez pas laquelle est en cause) reçoit une valeur. Ici, par exem- 
ple, vous vérifierez toutes les instructions de la forme : 


X = … 
ou YŸ = … 


D'autres erreurs sont malheureusement possibles. Celles que nous avons évo- 
quées sont les plus courantes. Si vous prenez bien soin de relire ce que vous avez 
tapé et de le comparer avec la liste d’origine, il est probable que vous ne rencon- 
trerez guère d'autres erreurs. 


4. La mise au point progressive 


Si vous connaissez le Basic, vous pouvez profiter de la structure ‘‘très modulaire‘” 
des programmes que nous vous proposons. 


Par exemple, vous pouvez entrer d'abord le programme principal (généralement 
court) puis les différents sous-programmes en tenant compte de l’ordre dans lequel 
ils sont utilisés. Généralement, vous commencerez par le sous-programme d'ini- 
tialisation du jeu (situé en 9000). Celui-ci peut d’ailleurs être testé par un pro- 
gramme principal réduit à 


GOSUB 9000 


Vous poursuivrez votre ‘saisie’ par le sous-programme suivant (généralement : 
initialisation d'une partie en 8000) et ainsi de suite. L'ordre dans lequel il faut 
entrer les différents sous-programmes est celui dans lequel ils sont mentionnés 
dans la rubrique ‘‘description du programme. 


2 
Force de frappe 


1. Le jeu 


Voici un bon moyen d'apprendre à mieux connaître le clavier de votre AMSTRAD 
et d'augmenter ainsi votre vitesse de frappe. En effet, le but de ce jeu consiste 
à taper le plus rapidement possible sur la touche correspondant à la lettre que 
vous voyez apparaître en un endroit quelconque de l'écran. 


A chaque partie, trente lettres vous sont ainsi proposées. Chacune d’entre elles 
est tirée au hasard parmi les vingt-six lettres de l'alphabet. Si vous frappez la bonne 
touche, vous serez ‘‘récompensés'” par un son qui deviendra de plus en plus 
‘‘haut'” au fur et à mesure de votre progression. Par contre, si vous vous trom- 
pez de touche, un son approprié vous le signalera ; il en ira ainsi jusqu’à ce que 
vous tapiez sur la bonne touche. 


Les lettres sont proposées suivant un rythme irrégulier. C'est là un petit détail 
qui accroît quelque peu la difficulté du jeu en vous obligeant d'être sans cesse 
‘’à l'affût’ d'une nouvelle lettre. 


Vous verrez s'afficher en permanence le nombre d'erreurs et le temps écoulé 
depuis le début de la partie. Seul n’est pris en compte que votre temps de réac- 
tion. Le temps (variable) qui s'écoule avant l'apparition de chaque lettre n’est pas 
considéré. 


A la fin de chaque partie, le programme vous indique votre temps moyen de réac- 
tion. Il vous délivre alors un score qui dépend à la fois de ce temps moyen et 
du nombre d'erreurs commises. En même temps, il vous renseigne sur le meilleur 
score réalisé depuis le début du jeu. 


Pour rejouer, il vous suffit de répondre O (pour oui) à la question : ‘voulez-vous 
rejouer (O/N) ?"" 


Remarque importante : assurez-vous que votre clavier est en ‘mode’ majuscule. 


2. Le programme 


LOO0 HRXEXEAXEEEXEEXEEX FORCE DE FRAPPE ##XXXX XXE RURAUX XX 
0 - 

120 GOSUR 9000 

1:90 GOSUE 8900 

140 FCR L = { TO NL 

{150 GOSUB 5000 

160 R#=INKREVS$: IF R$="" THEN GOSUB 6000: GOTO 1860 

179 R<ASC(R#): IF R<)C THEN GOSUR 23000: GOTO 160 

180 GOSUB 2000 

190 NEXT L 

2090  M=T/NL 

210 LOCATE 1,8: FRINT "TEMPS MOYEN"; M 

220 LOCATE {,11: PRINT "AVEC": E; "ERREURS": 

25Q SC=INT(50000/M-S0%*E) 

240 LOCATE 1,ié6: PRINT "VOTRE SCORE"; SC 

250 LOCATE 1,21: FRINT "MEILLEUR SCORE"; MS 

260 IF SC:MS THEN MS=SC 

270 LOCATE 1,24 

269 FRINT "voulez vous rejouer (O/N)" 

290 R$=INEEY£: IF R£ÇR"N" AND R#<>"G" THEN GOTO 290 

300 IF R$="0" THEN GOTO 150 

310 END 


329 

2000 ‘------------ SP: LETTRE CORRECTE === seems sens 
2010 ‘ 

2020 LOCATE K,Y: PRINT " ‘"; 

2030 KN=KN+1 

2040 SOUND {1,130-T*KN,10 

2050 RETURN 

268à ‘ 

3000 "------- SP LEÉFTRE. INCORRECTE =ssssssescsssssssssmss 
3010 

3020 E=E+i: SOUND 1,2000,30 

30:10 LOCATE 22,2: PRINT E; 

3040 KN=0 

3050 RETURN 

s060 ” 

30009 "---------- SP AFFICHAGE LETTRE ------------------------ 
95010 ‘ 

9020 X=XI+TINT(IRND(I)#(X2-X1+1)) 

3030 Y=YI+INT(RND(I)#(Y2-Y1+1)) 

23040 IF KX=40 AND Y=25 THEN 5020 

9050 C=65+INT(RND(1)+26) 

5060 FOR K=1 TQ RND(I1)XTM: NEXT K 

9070 LOCATE X,Y: FRINT CHR#(C): 

9060 RETURN 

9099 ‘ 

6000 ‘------------ SP TEMPS --- 2 2 
6010 

602Q T=T+i 

6030 LOCATE 9,2: PRINT T; 

6040 RETURN 

6050 : 

BUOÛ, "SSseE-e sé BP NEC PARTIE MAR ER ESREA Sean 
BGIC ‘ 

6620 CLS: T=0: E=0 

8050 PRINT "pour commencer, tapez sur une touche": 

8040 R$F=INKEY#H 

6050 IF R$="" THEN GOTO B040 

B0ëD CiS 

6070 LOCATE 3,2: PRINT "TEMPS ERREURS": 

BO6O KN=0 

80690 RETURN 

8100 ‘ 


9070 X{={1: X2=40: Yi=4: Y2=25 

9040 NL=S0: TM=500: MS=0 

9050 INK 0,CF: ‘INK 1,CE: BORDER ER 

9060 RETURN 

9006 rssssssssss- SPAINPT JEU ESS Se SSSS ESS Ress nsssess 
9019 ‘ 

9020 CF=23: CE= 2: BR=16 


3. Si vous souhaïtez personnaliser ce programme 


œ 


Pour modifier les couleurs : 


pour modifier la couleur de fond, remplacez, en 9020, le nombre 23 par une 
valeur de votre choix (de O à 26), 


pour modifier la couleur d'écriture, remplacez, en 9020, le nombre 2 par une 
valeur de votre choix (de O à 26). Evitez de choisir les mêmes couleurs pour 
le fond et l'écriture ; vos lettres seraient alors ‘’invisibles’”, 


pour modifier la couleur de la bordure de l'écran, remplacez, en 9020, le nom- 
bre 16 par une valeur de votre choix (de O à 26). 


Pour modifier le nombre de lettres proposées lors d'une partie 


Remplacez, en 9040, le nombre 30 par la valeur de votre choix. 


œ 


Pour modifier le temps s’écoulant avant l'apparition d'une nouvelle lettre 


Remplacez, en 9040, le nombre 500 par une valeur de votre choix. Si vous sou- 
haitez supprimer le temps d'attente, vous pouvez : 


œ 


soit remplacer, en 9040, la valeur 500 par O, 


soit supprimer l'instruction 5060. 


Pour que les lettres s'affichent toujours au même endroit 


Remplacez les lignes 5020 et 5030 par des instructions attribuant des valeurs 
déterminées à X et à Ÿ. Par exemple : 


5020 X = 20 
5030 Y = 12 


placeront toutes les lettres au centre de l'écran. 


4. Description du programme 


a) Techniques employées, décrites en annexe 


— Hasard. 
b) Le programme principal 


120 appelle le sous-programme d'initialisation du jeu (9000). 
130-300 correspondent au déroulement d’une partie. Elles sont répétées jusqu'à 
ce que vous disiez que vous ne souhaitez plus rejouer : 
140-190 proposent les trente lettres. Pour chaque lettre : 
150 appelle le sous-programme 5000 qui affiche une lettre à l'écran. 


160 attend qu'une touche soit pressée. Tant que cela n'a pas lieu, le sous- 
programme 6000 est appelé pour ‘‘’incrémenter'’ le compteur de temps et 
pour en afficher la valeur. 


170 analyse la réponse. Si celle-ci est incorrecte, le sous-programme ‘lettre 
incorrecte’” (3000) est appelé ; on revient alors en 160 pour attendre une 
autre proposition. 


180 exécutée lorsque la réponse est exacte ; cette instruction appelle le sous- 
programme ‘‘lettre correcte”. 


200-220 calculent le temps moyen et l'affichent en même temps que le nombre 
d'erreurs. 


230 calcule le score. 

240-250 affichent votre score et le meilleur score déjà réalisé. 
260 actualise le meilleur score, s'il y a lieu. 

270-290 vous demandent si vous souhaitez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9060) 


9020 détermine les couleurs (fond, écriture, bordure). 
9030 fixe les limites du domaine où peuvent apparaître les lettres proposées. 


90490 fixe le nombre de lettres proposées, le temps d'attente maximum et initia- 
lise le meilleur score. 


d) Le sous-programme d'initialisation d’une partie (8000-8090) 


8020 efface l'écran et initialise les compteurs de temps et d'erreurs. 
8030-8060 attendent que vous frappiez une touche et effacent l'écran. 


8070 affiche les textes accompagnant le temps, le nombre de lettres affichées 
et le nombre d'erreurs. 


8080 initialise le nombre de réponses consécutives sans erreur. 


e) le sous-programme d'affichage d'une lettre (5000-5080) 


5020-5040 déterminent au hasard les coordonnées d'affichage d'une lettre (voir 
annexe hasard). Le point situé en bas à droite de l'écran (X = 40, Y = 25) 
est rejeté car l'écriture d'une lettre à cet emplacement provoquerait un pas- 
sage à la ligne avec défilement d'écran ; la ligne supérieure disparaîtrait alors. 


5050 choisit au hasard le code ASCII de l’une des vingt six lettres (majuscules) 
de l'alphabet (voir annexe hasard). 


5060-5070 affichent la lettre choisie à l'emplacement déterminé après un temps 
tiré lui aussi au hasard. 

f) Le sous-programme lettre correcte (2000-2050) 

2020 efface la lettre proposée. 

2030 incrémente le nombre de réponses consécutives sans erreur. 

2040 émet un son dont la hauteur dépend du nombre de réponses consécutives 
sans erreur. 

g) Le sous-programme lettre incorrecte (3000-3050) 

3020 incrémente de un le compteur d'erreurs et émet un son approprié. 

3030 affiche le nombre d'erreurs. 


3030 remet à 1 le compteur de réponses consécutives sans erreur. 


5. Liste des variables 
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CF Couleur de fond. 
CE Couleur d'écriture. 
BR Couleur de la bordure de l'écran. 


X1,X2,Y1,Y2 Coordonnées du domaine dans lequel les lettres pourront 
apparaître. 


NL Nombre de lettres proposées au cours d’une partie. 


TM 


MS 


KN 


SC 


Temps maximum s'écoulant avant l'apparition d’une nouvelle 
lettre. 


Meilleur score. 
Compteur du temps (cumulé) de réaction du joueur. 
Compteur d'erreurs. 


Nombre de réponses consécutives sans erreur (il est remis à zéro 
à chaque erreur). 


Numéro de la lettre courante. 

Coordonnées de la lettre courante. 

Code ASCII de la lettre courante. 

Code ASCII de la touche frappée par le joueur. 
Temps moyen de réaction. 


Score. 


Variables auxiliaires 


R$ 


K 
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Raid de nuit 


1. Le jeu 
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En pleine nuit, vous êtes aux commandes d’un bombardier. Votre mission : anéan- 
tir une ville. Le temps vous est compté car votre moteur est défaillant et vous 
perdez sans cesse de l'altitude. Vous avez donc intérêt à démolir rapidement les 
immeubles les plus élevés pour éviter de les percuter lors d’un prochain passage. 
D'autre part, vous ne pouvez larguer une nouvelle bombe que lorsque la précé- 
dente a atteint son but (ou le sol). 


Vous voyez donc votre avion traverser l'écran à diverses reprises. À chaque pas- 
sage, il peut perdre ou ne pas perdre (suivant le hasard) un peu d'altitude. Le ‘’sus- 
pens'’ en sera ainsi d'autant plus grand quand vous serez passés au ras d’un 
immeuble que vous aurez raté | 


Vous larguez une bombe en pressant n'importe quelle touche. Chaque fois qu'un 


DENEA SCORE M 





immeuble est atteint, il est démoli sur une hauteur plus ou moins importante. Des 
sons appropriés vous renseignent sur l'importance des dégâts. 


Le jeu s'achève lorsque votre avion percute un immeuble ou lorsque la ville a été 
entièrement détruite. Dans le premier cas, votre score est fonction de l'impor- 
tance des destructions opérées. Dans le second cas, il dépend de la vitesse avec 
laquelle vous avez atteint votre objectif (il sera toujours plus élevé dans le second 
cas). 


Neuf niveaux différents vous sont proposés. Au niveau 1, les immeubles sont 
de petite taille tandis qu’au niveau 9, ils occupent une bonne partie de l'écran. 


Le programme affiche en permanence le niveau auquel vous jouez et le meilleur 
score déjà réalisé à ce niveau. 
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2. Le programme 
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100 
{110 
120 
130 
140 
150 
180 
170 
160 
190 
200 
210 
220 
230 
240 
250 
269 
270 
280 
290 
306 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2060 
2090 
2100 
2110 
3000 
3010 
3020 
30570 
3040 
3050 
3060 
3070 


CARMEN ERERREREEEX RAID DE NUIT XXKKXXH UHR EURE EEE ER EEE 


DEF FNSC(X,Y) = TEST(f6x(X-1)+1,16*x(25-Y)+1) 
GOSUB 9000 
GOSUB 8000 
IF TR=i THEN GOSUB 2000 
R$=INKEYS 
IF R$<D"" AND TR=Q THEN XB=XA: YB=YA: TR=1 
GOSUE 3000 
IF TR=1 AND EX=0 THEN GOSUB 2000 ELSE FOR K=1 TO 2O:NEXT K 
IF FI<5>1 AND ID>IM THEN 150 
IF ID=IM THEN GOSUB 5000 
LOCATE #1, 10,3: PRINT #1,SC; 
IF SC>MS(NV) THEN MS(NV)=6C 
FOR I=1 TO 1090: NEXT I 
LOCATE #1, 24,1: PRINT #{, “voulez vous"; 
LOCATE #1, 24,2: FRINT #1, "rejouer (O/N)"; 
RE=INEEVS: IF R£<>"N" AND R£<>"0" THEN 270. 
IF Rf="0" THEN 140 
END 


IF EX=i THEN 2070 

LOCATE XB,YB: PRINT " "3j: YB=YB+1 

IF YB>Y2 THEN SOUND 1,2000,10: TR=0: RETURN 

IF FNSC(XB,YB)=CF THEN LOCATE XB,YB: PRINT GBf;: RETURN 
EX=I 

SOUND 1,200,5: LOCATE XB,YB: PRINT " "; 

ID=ID+i: YB=YB+1 

IF AND<ZP OR YB)Y2 THEN EX=0: TR=0Q 

RETURN 


IF XA>=X2 THEN 35050 

IF FNSC(KA+3,YA)<>CF THEN GOSUB 4000: RETURN 

LOCATE XA,YA: PRINT GA$;: XA=XAri1: RETURN 

LOCATE XA,YA: PRINT “ “3: IF RND)0.35 THEN YA=YA+I 
IF YADY2Z THEN GOSUB 5000 

XA=XI 


3080 
4060 
3100 
4000 
4010 
4020 
40230 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
5000 
2010 
5020 
9030 
5040 
8000 
6910 
B020 
BOIS 
8040 
68950 
8060 
8970 
pogüû 
6090 
6100 
8110 
B120 
8130 
8140 
8150 
8160 
8170 
£i60 
6190 
B200 
6210 
8226 


6230 


LOCATE XA,YA: PRINT A$; 
RETURN 


LOCATE XA,YA: PRINT " ‘; 

FOR I=i TO 15 

LOCATE XA,YA: PEN I: PRINT GA$; 
SOUND 1,10%1,5 

NEXT I 

FI=i 

LOCATE XA+1,YA: PRINT “ "; 
SC=INT(1000+1D/IM) 

RETURN 


— SP FIN DE PARTIE PAR VILLE DETRUITE ------- 


5C=1000+(Y2-YA)#+100 
RETURN 


PAPER 0: CLS 

FEN #1,3: CLS #1 

LOCATE #1, 3,1 

FRINT #1, "niveau choisi (t{ a 9)"; 
RS=INKEVS: NV=YAL(RS#) 

IF NV=0O THEN 6060 

PRINT #1, NV: 


FEN ji 

YB=Y2-NV-i: HM=O, SxNV+4: IM=0 

FOR X=XI+: TG X2-1 
YM=VYB-INT(RND(1}*xHM) 
IM=IM+Y2-YM+1 
FOR Y=V2 TO YM STEP -1 
LOCATE X,Y: FRINT CHR#(163); 
NEXT Ÿ 

NEXT X 


ID=G: TR=G: EX=0: FI=0 

XA=X1: YA=Yi: XE=XA: YR=YA 

PEN 2: LOCATE XA,YA: PRINT GA*; 
CLS #1 
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8240 LÜCATE #1, 
E25 


E260 LOCATE #1, 


2: PRINT #1,"NIVEAU SCORE M-SCORE"; 
Z: PRINT #1, NV: 


$ 
0 LOCATE #1, 4, 
8,3: PRINT #1, MS(NV): 


me Je 


8270 RETURN 

8280 ‘ 

FOOQ FT HASeres esse SF INITIALISATION DU JEU --------------- 
5910 ‘ 

9020 BR=û: CF=0: CI=4 :CA=6: CS=16 


5030 INE O,CF: INK 1,CI: INK 2,CA: INK 3,CS 


9040 MODE 1: BORDER ER 
5050 X1=4: X?2=30: Yi=l: Y?=22 

9060 WINDOW #1, 1,40,Y2+1,25 

G070 1F=0.6 

3080 

9090 SYMBOL AFTER 128 

9100 SYMEOL 160,224,160,155,128,129,255,3,7 
9110 SYMBOL 161,0,0,252,2,242,255,192,128 

6120 SYMBOL 162,0,0,274,63,224,0,6,0 

9130 SYMBOL 163,255,158,153,299,255,193,193,255 
9140 AF=CHRE(160)+CHRE (161) 

9150 GA$=" "+A4$ 

9160 GE$=CHR#(162) 

9170 RETURN 


3. Si vous souhaitez personnaliser ce programme 
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Pour modifier les couleurs 


de la bordure (ici noire) : remplacez, en 9020, le nombre O (dans BR = O) par 
une valeur de votre choix (entre O et 26), 


du ciel (ici noir) : remplacez, en 9020, le nombre O (dans CF = O) par une 
valeur de votre choix, 


des immeubles : remplacez, en 9020, le nombre 4 par une valeur de votre 
choix, 


de l'avion et de la bombe : remplacez, en 9020, le nombre 6 par une valeur 
de votre choix. 


Pour que l'avion perde de l'altitude plus ou moins rapidement 


La perte d'altitude est régie par la ligne 3050. Actuellement, à chaque passage, 
l'avion a une chance sur trois (0.33) de ne pas descendre. 


Si vous souhaitez que l'avion descende plus vite, remplacez cette valeur 0.33 
par un nombre plus petit. Par exemple, avec : 


3050 LOCATE XA,YA : PRINT ” ‘’; IF RND > 0.1 THEN YA = YA + 1 


l'avion n'aura plus qu'une chance sur dix (0.1) de ne pas descendre. || descendra 
donc, en moyenne neuf fois sur dix. 


Si vous voulez que l'avion descende systématiquement à chaque passage, il vous 
suffit d'écrire : 


3050 LOCATE XA, YA : PRINT “ ”’: YA = YA + 1 


Enfin, si vous désirez que l'avion descende plus lentement, remplacez la valeur 
0.33 par un nombre plus grand (mais inférieur à 1). Par exemple, avec : 


3050 LOCATE XA,YA : PRINT ‘ ‘’: IF RND > 0.5 THEN YA = YA + 1 
l'avion descendra, en moyenne, une fois sur deux. 
Évitez de choisir des valeurs trop proches de 1 car alors l'avion descendrait trop 
lentement et le jeu risquerait de perdre de l'intérêt. 
> Pour modifier le rythme de déplacement de l'avion 


Actuellement, à chaque largage de bombe, l'avion ralentit comme pour laisser 
au pilote la possibilité d'examiner les résultats obtenus. Dès que la bombe a atteint 
son objectif, l’avion reprend sa vitesse normale. 


Vous pouvez obtenir un déplacement à ‘’vitesse constante’’ en modifiant la durée 
de l'attente en ligne 190 ; pour cela, il vous suffit de remplacer la valeur 20 par 50. 


4. Description du programme 


a) Techniques employées, décrites en annexe 
— Hasard, 
— Animation, 


— Examen du contenu de l'écran. 


b) Le programme principal (100-290) 


120 définit une fonction permettant de connaître la couleur (numéro d'encrier) 
d'un point graphique de l'emplacement texte de coordonnées X,Y. 


130 appelle le sous-programme d'initialisation du jeu. 
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140-280 correspondent au déroulement d'une partie. Elles sont répétées jusqu'à 
ce que vous précisiez que vous ne souhaitez plus réjouer : 


140 appelle le sous-programme d'initialisation d'une partie. 


150-200 sont répétées jusqu'à la fin de la partie (écrasement de l’avion ou 
destruction de toute la ville) : 


150 assure, à l’aide du sous-programme 2000, le déplacement de la bombe 
si un largage est en cours (TR = 1). 


160-170 examinent le clavier et prennent en compte une demande de 
largage (touche quelconque pressée) si aucun autre largage n'est en cours 
(TR = O). 


180 appelle le sous-programme de déplacement de l'avion. 


190 appelle, s’il y a lieu (tir en cours et explosion d'immeuble non en cours) 
le sous-programme de déplacement de la bombe. 


200 examine si la partie est achevée. 


210 appelle, s'il y a lieu, le sous-programme de fin de partie par destruction 
totale de la ville (notez que le sous-programme de fin de partie par écrase- 
ment de l'avion est, quant-à-lui, appelé par le sous-programme de déplace- 
ment de l'avion). 


220-230 affichent votre score et actualisent le meilleur score. 
240-270 vous demandent si vous voulez rejouer. 


c) Le sous-programme d'initialisaton du jeu (9000-9180) 


9020-9040 fixent les différentes couleurs 
9050 fixe les limites du domaine ou évolue l'avion 


9060 définit la fenêtre numéro 1 utilisée pour les différents affichages en bas 
de l'écran. 


9070 fixe (dans ZP) la probabilité qu'une explosion d'une partie d'immeuble 
entraîne l'explosion de la partie inférieure. 


9090-9160 fabriquent les caractères graphiques utilisés pour représenter l'avion, 
la bombe et les immeubles. 

d) Le sous-programme d'initialisation de partie (8000-8270) 

8020 efface l'écran. 

8030-8080 vous font choisir votre niveau de jeu. 


8100-8180 dessinent les immeubles (en comptabilisant dans IM le nombre 
d'emplacements correspondant). 


8200 initialise le nombre d'immeubles détruits et les indicateurs de largage, 
d'explosion d'immeuble et de fin de partie. 


8210 initialise les coordonnées de l'avion et de la bombe. 
8220 dessine l'avion dans sa position initiale. 


8230-8260 affichent le niveau de jeu et le meilleur score. 


e) Le sous-programme de déplacement de la bombe (2000-2100) 
{Ce sous-programme gère également l'explosion d'immeuble) 
2020 examine si une explosion d'immeuble est en cours. 


2030-2060 avancent la bombe (lorsqu’aucune explosion d'immeuble n’est en 
cours) et examinent si elle atteint le sol ou un immeuble. Dans ce dernier cas, 
l'indicateur EX (explosion en cours) est mis en place. 


2070-2090 exécutées lorsqu'une explosion est en cours, ces instructions incré- 
mentent le compteur d'immeubles détruits, effacent un ‘’morceau’’ d’immeur- 
ble et déterminent si l'explosion doit ou non se poursuivre sur le partie inférieure. 


f) Le sous-programme de déplacement de l'avion 


3020-3040 déplacent l'avion s'il n’a pas atteint le bord de l'écran en examinant 
s'il percute un immeuble. Dans ce dernier cas, le sous-programme ‘fin de par- 
tie par avion détruit’ (4000) est appelé. 


3050-3090 exécutées lorsque l'avion a atteint le bord droit, ces instructions réaf- 


fichent l'avion à gauche de l'écran après avoir modifié, éventuellement, son. 
altitude ; si l’avion atteint alors le sol le sous-programme ‘‘fin de partie par ville 
détruite’’ (5000) est appelé. 

g) Le sous-programme de fin de partie-ville détruite (5000-5030) 


Il se contente de calculer votre score. 


h) Le sous-programme de fin de partie-avion détruit (4000-4100) 


4020-4060 correspondent à la destruction de l’avion avec effets de sons et de 
couleurs. 


4070-4080 positionnent l'indicateur de fin de partie et effacent l'avion. 


4090 calcule le score. 
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5. Liste des variables 
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BR 

CF 

CI 

CA 

CS 
X1,Y1,X2,Y2 


ZP 


A$ 
GA$ 


GB$ 


EX 


FI 


XA,YA 
XB,YB 


Couleur du tour de l'écran. 

Couleur du fond (ciel et partie affichage des scores). 
Couleur des immeubles. 

Couleur de l'avion et de la bombe. 

Couleur d'affichage des scores et du ‘‘dialogue”’. 


Coordonnées du domaine dans lequel évolue l'avion. (Notez que 
les immeubles sont tracés entre X1 + 3 et X2 -— 1). 


Probabilité pour que l'explosion d'une partie d'immeuble entraîne 
l'explosion de la partie inférieure. 


Chaîne de 2 caractères représentant l'avion. 


Chaîne formée d'un espace et de deux caractères ‘’avion’’. Elle 
permet de réaliser, à l’aide d’une seule instruction PRINT, le dépla- 
cement de l'avion. 


Chaîne d’un caractère représentant la bombe. 

Niveau de jeu (de 1 à 9). 

Nombre total de ‘’morceaux d'immeubles””. 

Nombre de ‘’morceaux d'immeubles'” (cases) détruits. 


Indicateur de tir : 

0 : aucun largage en cours, 

1 : largage en cours (une bombe est en train de tomber ou un 
immeuble est en train d’exploser). 


Indicateur d'explosion d'immeuble : 

0 : pas d’explosion, 

1: explosion en cours (un morceau d'immeuble vient d’être 
détruit et le ‘’hasard'’ a décidé que le suivant devra l'être 
également). 


Indicateur de fin de partie : 

0 : cas normal, 

1: la partie ne peut plus se poursuivre (ville détruite ou avion 
détruit). 


Coordonnées de l'avion. 


Coordonnées de la bombe. 


MS(9) Tableau contenant le meilleur score relatif à chacun des neuf 
niveaux. 


SC Score obtenu lors d’une partie. 


Variables auxiliaires 


RS AXY 


YB,HM (dans le sous-programme 8000 seulement). 
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FLIP FLOP 


1. Le jeu 
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Vous disposez de neuf pions réversibles, disposés suivant une grille 3 x 3. L'une 
de leur face est bleue tandis que l’autre est verte. 


Au départ, le programme dispose les pions dans la grille, en tirant au hasard la 
couleur de la face visible. Le but du jeu consiste à aboutir, en un minimum de 
coups à la situation suivante : 


— le pion central est vert, 
— les autres pions sont bleus. 


A chaque coup, vous choisissez le pion sur lequel vous voulez agir. Le programme 
vous retourne alors, non seulement ce pion, mais également un certain nombre 
d'autres, suivant les règles suivantes : 








Pion choisi 


Pions retournés en plus 
du pion choisi 





Le pion central. 


Un pion situé en milieu d’une rangée 
horizontale ou verticale. 


Un pion situé dans un coin. 





Les quatre pions des coins. 


Les deux pions voisins situés sur la 
même rangée. 


Les trois voisins immédiats. 





Malgré une lointaine ressemblance avec le ‘‘rubik's cube”’, vous verrez que ce 


jeu est beaucoup plus facile à pratiquer. 


Le choix d'un pion se fait à l’aide d'un ‘‘curseur'” représenté par un carré noir. 
Il se déplace de pion en pion à l’aide des quatre touches lt — +, 


Le programme vous affiche en permanence le numéro du coup que vous jouez 


et le meilleur score déjà obtenu. 
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2. Le programme 
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190 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
746 
250 
260 
279 
5000 
9010 
3020 
5050 
5040 
5950 
5960 
3970 
6000 
&010 
6020 
6030 
6040 
6050 
6040 
6070 
6080 
6080 
6100 
6110 
&£120 
8150 
&140 


PA ED AE EE FO OL OT PO - FL OO RP #6 OO X 


GOSUB 9060 

GOSUS 6000 
NC=NC+1 
PEN Î: LOCATE 4,24: PRINT NC; 
GOSUE 7000: GOSUB 6000: GOSUB 5000 
IF NF£È>8 OR T(2,2)<231 THEN 140 

IF MC£MS OR MS=0 THEN MS=NC 

PEN {: LOCATE 25,22: PRINT "GAGNE"; 
SOUND 1,478,30: SOUND 1,379,30 
SOUND 1,319,30: SOUND 1,239,50 
LOCATE 21,23: PRINT "rejouez vous?"; 
WHILE INKEY#<)>"": WEND 

R#=INKEYS#S: IF R£="" THEN 240 

IF R£ÇDUN" THEN 130 

END 


NF=0 

FOR I=i TO 5: FOR J=i TO 3 
IF T(I,d)=-1 THEN NF=NF+i 
NEXT J: NEXT I 


RETURN 
Pan SP JEU DU COUP ---------------"-""""""""" 
IP=I: JP=J 

IF IP<)2 OR JP<3)2 THEN 6110 

GOSUB 6500 


FOR I=1 TO 3 STEF 2 
FOR J=1 TO 3 STEP 2 
GOSUB 6500 
NEXT J 

NEXT I 


IF IP<)>2 THEN 6150 
FOR I={ TO 3: GOSUB 6500: NEXT I! 
RETURN 


6i5û 
&i60 
&i7ù 
6180 
&190 
6290 
6210 
6220 
6250 
6240 
63500 
8510 
6520 
6530 
6340 
6539 
&58&û 
7000 
7010 
7020 
70:70 
7040 
7050 
7060 
7070 
7089 
7099 
7100 
7110 
7129 
7159 
7140 
7150 
7160 
71790 
7160 
7190 
7200 


7210 


80600 
8019 
8920 
B030 
8040 
8050 
E060 


IF JPF£)2 THEN 6190 
FOR J=i TO 3: GOSUE 6500: NEXT J 
RETURN 


FOR I=IP-i1 TO IP+i 


FOR J=JF-1 TO JF+i 
GOSUB 6500 
NEXT J: NEXT I 
RETURN 
FRrPpresstes SP INVERGSION PION I,J --------------------- 
IF Ii OR I>3 OR J<1 OR J>3 THEN RETURN 


T(I,d)=-T(I,d) 
GOSUB 8500 
RETURN 


Fee SF LECTURE COUP PROPOSE ----------"-"-"---- 


FEN j: LÜOCATE 19,23 

PRINT “choisissez votre pion"; 
I=i: gJ=i 

X=6+[+3: V=bx] 

LOCATE KX,Y: PRINT “ "; 

IF T{l,d)={i THEN PN=2 ELSE FN=3 
DF=INKEYS$: IF D$="" THEN 7080 
IF D$f=" " THEN 7170 

D=ASC(D#) 
I=1-(D=2427)#(121)+(D=243)*x(I<8) 
J=J-(D=240)#(J>1)+(D=241)#(J<3) 
PEN PN: LOCATE X,Y: PRINT P$; 
FOR K=1 TO 50: NEXT K 

6GOTO 7050 


SOUND 1,400,20 
PEN FN: LOCATE X,Y: FRINT F#; 
PEN 1: LOCATE 19,23: PRINT BL; 


RETURN 

mm GP INITIALIGATION PARTIE -------"--""""- 
CLS 

PEN 1: LOCATE 11,2 


FRINT 'FLIF-FLOP" 
NC=0 
NF=0 
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8070 
B0EO 
8090 
6100 
8iio 
6120 
Bi30 
8140 
8150 
8160 
B170 
6180 
8190 
8500 
6510 
8520 
8330 
8540 
8550 
2560 
8570 
8580 
9000 
5019 
9020 
9050 
5040 
3050 
9060 
3070 
SÔEO 
3090 
9100 
g110 
93120 


FOR I=1 TO 3: FOR J=1 TO 3 
IF RND(1)30,5 THEN T(I,J)=1 ELSE T(I,J)=-1 

NEXT J: NEXT I 

GOSUE 5000 

IF T(2,2)=1 AND NF=8 THEN 8060 

LOCATE 4,23 

PRINT "COUP M-SCORE": 

LOCATE 12,24: PRINT MS: 

FOR I=i TO 3: FOR J=1 TO 3 

GOSUE 8500 

NEXT Ji NEXT I 

RETURN 


EE SP DESSIN PION [,J ------"-"""" 


XD=8+#I+1: YD=6+J-2 
IF T(lI,d)=1 THEN PEN 2 ELSE FEN 3 
FOR Y=YD TO YD+3 
LOCATE XD,Y: FRINT LÉ; 
NEXT Ÿ 
RETURN 


MODE 1 

CE=0: CT=16: BR=8: CP=22: CF=20 

INK O,CE: INK 1,CT: INK 2,CF: INK 3,CF 
PAFER 0: CLS 


DIM T(3,3 
MS=0 
PH=CHR# (143) 


L$=""; FGn K=1 TO 4: L$=L#+P#$: NEXT K 
EL£="":, FOR K=1 TO 21: BL#=EL#+" ": NEXT K 
RETURN 


3. Si vous souhaitez personnaliser ce programme 


> Pour modifier la couleur des pions 


e pour changer la couleur du côté pile (actuellement vert) : remplacez, en 9020, 
le nombre 22 par une valeur de votre choix (1 à 26), 
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e pour changer la couleur du côté face (actuellement bleu) : remplacez, en 9020, 
le nombre 20 par une valeur de votre choix (1 à 26). 

> Pour modifier la couleur du bord de l'écran (actuellement noir) 

Remplacez, en 9020, la valeur O (dans BR = O) par un nombre de votre choix 

(1 à 26). 

> Pour modifier la couleur du fond (ici noir) 


Remplacez, en 9020, la valeur O (dans CE = O) par un nombre de votre choix 
(1 à 26). Évitez cependant de choisir une couleur de fond identique à l’une des 
deux couleurs des pions (qui deviendraient alors invisibles). D'autre part, notez 
que la couleur du ‘curseur’ est la même que la couleur de fond. 


4. Description du programme 


a) Techniques employées, décrites en annexe 
— Hasard, 
— Lecture du clavier, 


— Examen du contenu de l'écran. 


b) Le programme principal (100-260) 
120 appelle le sous-programme d'initialisation du jeu. 


130-250 correspondent au déroulement d’une partie. Elles sont répétées jusqu'à 
ce que vous précisiez que vous ne souhaitez plus rejouer : 


130 appelle le sous-programme d'initialisation d'une partie. 


140-170 correspondent au jeu d’un coup ; elles sont répétées jusqu’à ce que 
vous ayez gagné : 


140-150 incrémentent le compteur de coups (NC) et affichent sa valeur. 


160 appelle les sous-programmes : lecture du coup à jouer, jeu du coup 
{inversion des pions correspondants), analyse du coup. 


170 examine si vous avez obtenu la situation gagnante. 
180 met à jour le meilleur score. 


190-210 vous affichent ‘‘’en musique'” que vous avez gagné. 
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220-240 vous demandent si vous souhaitez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9110) 
9030-9040 déterminent les différentes couleurs. 
9050 efface l'écran et fixe la couleur de la bordure. 


9070 réserve le tableau T(3,3) servant à représenter la situation (pile ou face) de 
chaque pion. 


9100 prépare une chaîne de 4 pavés. 


9110 prépare une chaîne de 21 caractères ‘’blanc”. 


d) Le sous-programme d'initialisation d’une partie (8000-8180) 
8020-8040 effacent l'écran et affichent ‘‘FLIP FLOP"’ 
8050 initialise le compteur de coups joués. 


8060-8110 choisissent au hasard la position (pile ou face) de chaque pion en évi- 
tant la situation gagnante. 


8120-8140 préparent l'affichage du score et affichent le meilleur score. 


8150-8170 dessinent les pions à l’aide du sous-programme 8500. 


e) Le sous-programme de dessin d’un pion (8500-8570) 


Il détermine l'emplacement sur l'écran d'un pion donné {l et J contiennent sa posi- 
tion dans la grille 3 x 3). Il le dessine, en tenant compte de sa position (pile ou 
face) précisée dans le tableau T. 

f) Le sous-programme de lecture du coup proposé (7000-7200) 
7020-7030 vous affichent ‘‘'choisissez votre pion‘. 


7040-7150 vous permettent de sélectionner votre pion en employant les touches 
— +; elles sont répétées jusqu'à ce que vous frappiez la barre d'espace : 


7040 initialise la position du curseur (pion en haut, à gauche). 
7050-7060 affichent le curseur. 
7070 ‘‘’mémorise’’ dans PN la couleur du pion où se trouve le curseur. 


7080-7090 attendent qu'une touche du clavier soit pressée et examinent s'il 
s'agit de la barre d'espace. 


7100-7140 déterminent la nouvelle position du curseur et l’effacent de sa posi- 
tion actuelle (en le coloriant de la couleur du pion où il est situé, couleur préa- 
lablement mémorisée en PN). 


7170-7190 émettent un son pour vous indiquer que votre coup a été pris en 
compte et effacent le curseur et le message ‘‘’choisissez...”". 
g) Le sous-programme de jeu du coup proposé (6000-6230) 


Lors de l’appel du sous-programme, | et J contiennent les coordonnées (dans la 
grille 3 x 3) du pion choisi. Dans tous les cas, le sous-programme 6500 est uti- 
lisé pour ‘’retourner”’’ les pions nécessaires. 


6020-6090 cas du pion central. 
6110-6130 cas d’un pion situé au centre d’une colonne (et non central). 
6150-6170 cas d’un pion situé au centre d'une ligne (et non central). 


6190-6230 cas d'un pion situé dans un coin. 


h) Le sous-programme d'analyse d’un coup (5000-5060) 


Il compte le nombre de pions placés côté ‘‘face’’ (bleue). 


5. Liste des variables 


CE Couleur du fond. 
CT Couleur du ‘‘titre’’ (FLIP FLOP), des scores et des messages. 
BR Couleur du bord de l'écran. 
CP Couleur représentant le côté pile des pions. 
CF Couleur représentant le côté face des pions. 
T(3,3) Tableau représentant la situation de chaque pion : 
1 : côté pile, 

— 1: côté face. 
MS Meilleur score. 
P$ Caractère représentant un pavé ‘‘plein’’ 
L$ Chaîne de 4 caractères utilisée pour représenter les pions. 
BLS$ Chaîne de 21 caractères ‘‘’blanc'’. 
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NC 

NF 
XD,YD 
1, J 
IP,JP 
X,Y 


Numéro du coup. 

Nombre de pions côté face. 

Coordonnées écran du coin haut gauche d'un pion. 
Coordonnées d’un pion dans la grille (varient entre 1 et 3). 
Coordonnées du pion choisi dans la grille (varient entre 1 et 3). 


Coordonnées du curseur. 


Variables auxiliaires 


R$ 


DS 


D 


5 
Drôles de mines 


1. Le jeu 


Ce sont effectivement de drôles de mines qu'il va vous falloir déjouer. En effet, 
contrairement aux mines habituelles, elles sont capables de ‘’sauter’’ une multi- 
tude de fois. 


Votre mission : faire parvenir un maximum d’espions en territoire ennemi. Pour 
cela, ils doivent obligatoirement traverser un domaine infesté de mines. Vous dis- 
posez de douze hommes, prêts à risquer leur vie, qui suivent à la lettre l'itinéraire 
que vous leur indiquez par radio. 


Vos douze espions sont alignés sur la gauche de l'écran. Le premier attend que 
vous le dirigiez à l’aide des quatre touches fléchées (ou, le cas échéant, de la 
poignée de jeu). Vous devez tenter de le faire parvenir à droite de l'écran (à 
n'importe quelle hauteur). S'il saute sur une mine (avec sons et décors appro- 
priés), vous verrez aussitôt l'espion suivant se présenter au départ. 
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Bien entendu, les mines sont invisibles. Par contre, de nombreux obstacles, infran- 
chissables, vous serviront de repère. 


Bonne chance ! et n'oubliez pas que ces mines sont drôles. 


2. Le programme 


LOU RALKHAXEXEHEXAXEHELEEX DROLES DE MINES #XX#4XXXUUUXR XXE UE UN NE 
10 -* 

120 DEF FNEC(X,Y) = TEGT(S2#(X-1)+1,16%x(25-Y})+1) 

{0 

149 GOSUB 9000 

150 GOSUE 8000 

160 FOR IE=1 TO NE 

179 X=XI: Y=YI: FEN !{ 

180 LOCATE X,Y: PRINT Ef: 

190 LOCATE X{-2,1E: PRINT " "; 


200 D$=INKEYS$: IF D$f="" THEN 200 
210 D=ASC(D#) 
220 KN=X-(D=242)#x(KX2>XI1)+(D=245)x(X<KXL) 


230 YN=Y-(D=240)xÇ(Y2:Y1)+(D=241)+x(Y<Y2) 
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270 

380 

290 

300 

310 

320 

3319 

340 

350 

1000 
iGiQ 
1920 
1G:0 
1640 
1950 
1060 
1070 
1080 
2000 
2019 
2020 
2050 
2040 
2050 
2060 
2070 
2080 
2090 
2190 
2119 
3126 
21270 
2140 
2150 
2160 
5000 
2010 
5020 
3070 
5040 


2056 


P=FNSC(XN,YN) 
IF F=4 THEN GOSUE 3000: GOTO 310 
LOCATE K,Y: PRINT " 4: 
IF F=0 THEN X=XN: Y=YN 
LOCATE X,Y: PRINT Ef; 
IF X=XL THEN GOSUE 2000: GOTO 310 
60TO 200 
NEXT IE 
GOSUB 1000 
IF R£ÇI"N" THEN 150 
END 
EEE SP FIN DE PARTIE -------- 
IF SCNS THEN MS=6C 


PEN 3: LOCATE 16,2% 
WHILE INKEV#<>"": WEND 


FRINT "rejouez vous (Q/N)7"; 

RS=INEEVS: IF R#$="" THEN 1060 

RETURN 

D nn else SP TRAVERGEE REUSGIE -------------------- 
DATA iQ 


DATA 3,426, 9,426, 12,426, 24,319, 24,319 
DATA 24,284, 24,264, 36,213, 12,253, 24,319 


RESTORE 2020: READ N 
FOR I=1 TON ; 

READ L,H: SOUND 1,H,3#L: SGUND 1,0,2 
NEXT I 


PEN 2: LOCATE 4,25: PRINT SC; 


LOCATE X,Y: PRINT " ": 
WHILE INKEVS<)"": WEND 

RETURN 

Fe SP EXPLOSION MINE ------- 2" 


FEN i: LOCATE X,Y: PRINT " ?: 
LOCATE XN,YN: PRINT Ef; 

FOR Kzi TO 30: NEXT K 

LOCATE XN,VYN: PRINT Elf; 
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3060 FOR I=i TO 5 

3070 FOR H=500 TO 50 STEP -20: SOUND {,H,1: NEXT H 

3060 NEXT I 

3090 LOCATE XN,YN: PRINT E2#; 

2100 FOR H=50 TO 2000 STEF 50: SOUND 1,H,1: NEXT H 

3110 FEN 4: LOCATE XN,YN: FRINT Mf; 

2120 WHILE INKEY#<S"": WEND 

3130 RETURN 

3140 

8900 ‘mm SP INITIALISATION PARTIE ------------------ 
6919 ‘ 

8020 PAPER ü: CLS 

60:30 SC=0 
8040 FEN 2 
8950 LOCATE 53,24 
EGé9 LOCATE 11,2 
6070 
8080 FOR I=1i1 T0 NO 

6050 X=XI+INT(RND(I)#x(X2-X1+1)) 

B100  VYV=YI+INT(RND(1)#x(Y2-Vi+1)) 

6110 IF FNSC(X,Y)<>0 THEN 8090 

8120 C=INT(S+{1*RND(1)): PEN C 

81:30 LOCATE X,Y: PRINT Df; 

B140 NEXT I 

EIS50 ‘ 

8160 FOR I=i TO Ni 

6170  X=XI+INT(RND(I)x(X2-X1+1)) 

8180 Y=YI+INT(RND(1)#(Y2-Yi1+1)) 

B190 IF FNSC(X,Y}I<>0 THEN 6170 

8200 PEN 4: LOCATE X,Y: PRINT M#; 

B210 NEXT I 

8250 ‘ 

82:30 PEN 1! 

8240 FOR I={ TO NE 

68250 LOCATE X1-2,1: FRINT Ef; 

8260 NEXT I 

8270 RETURN 

82E0 ‘ 

2000 ‘------------ SP ANTTIALISATION- DUR JEU sms sauvaesnenere 
9910 : 

9020 MODE 0 

9050 CF=0: CE=24: BR=0: CS=16: CD=14 

9040 INK O,CF: INK 1,CE: INK 2,CS: INK 3,CD: INK 4,CF 
9050 CLS: BORDER BR 

9060 ‘ 


: FRINT SCORE M-SCORE"; 
gt PRINT ME; 


9570 
5060 
5090 
9100 
9110 
9120 
7130 
9140 
9150 
9160 
9170 
9180 
9190 
9200 
9210 
9220 


220 


DATA 2,4,5,6,7,8,10,12,15,15,18 
DIM Ctté) 
RESTORE 9070 


FOR 1=5 TO 15: READ C(I): INK I,C(I): 


X1=3: X2=19: XL=20 
YisSs Y2=22: XI=2: YIS15 
NE=i3: NÜ=65: Nn=20 


GYMECL AFTER i60 
SYMEOL 160,16,0,20,56,26,20,36,54 
SYMBOL 161, 40,46,0,24,16,4,68,118 
SYMEOL 162,4,72,2,8,64,2,40,2 


NEXT I 


EF=CHRS (160): E1$=CHR# (161): E2$=CHR$ (162) 


MÉ=CHRE(I AT): OÉ=CHRE(LAS) 


RETURN 


3. Si vous souhaitez personnaliser ce programme 


> Pour modifier le nombre d'espions 


Remplacez le nombre 12 de l'instruction 9130 par une valeur de votre choix ne 
dépassant pas 22. 


> Pour modifier le nombre d'obstacles 


Remplacez le nombre 65 de l'instruction 9130 par la valeur de votre choix. 


> Pour modifier le nombre de mines 


Remplacez le nombre 20 de l'instruction 9130 par la valeur de votre choix. 


Notez bien qu'un trop grand nombre de mines risque de rendre le jeu difficile, voir 
impossible. Un trop petit nombre risque, par contre, de le rendre trop facile. 


> Pour que les mines n'explosent qu'une seule fois 


Les mines ne seront plus ‘‘drôles”’ si vous remplacez la ligne 3110 par : 


3110 PEN 4 : LOCATE XA,YN : PRINT “ ”’: 
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œ Pour utiliser une poignée de jeu 
Remplacez les lignes 200 à 230 par : 


200 D-JOY (0) : IF D=0 THEN 200 

210 FOR K=1 TO 50 : NEXT K 

220 XN=X-(D=4) x (X>XI) + (D=8) + (X<XL) 
230 YN=Y-(D=1) x (Y>Y1) + (D=2) « (Y<Y2) 


4. Description du programme 
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a) Techniques employées, décrites en annexe 
— Hasard, 

— Animation, 

— Lecteur du clavier, 


— Examen du contenu de l'écran. 


b) Le programme principal (100-340) 


120 définit une fonction permettant de connaître la couleur (numéro d'encrier) 
d'un point graphique de l'emplacement texte de coordonnées X,Y. 


140 appelle le sous-programme d'initialisation du jeu. 


150-330 correspondent au déroulement d’une partie. Elles sont répétées jusqu'à ce 
que vous précisiez que vous ne voulez plus rejouer : 


130 appelle le sous-programme d'initialisation d’une partie. 


150-310 répètent douze fois la tentative de traversée d’un espion. 
Pour chaque tentative : 


170-190 initialisent les coordonnées (X,Y) de l’espion à la position de départ, 
y dessinent un espion et en effacent un de la file d'attente. 


190-300 sont répétées jusqu'à ce que l’espion ait sauté sur une mine ou qu'il 
ait réussi sa traversée : 


200-230 attendent qu'une touche soit enfoncée et déterminent la nouvelle 
position correspondante (XN,YN). 


240 détermine le contenu de cette nouvelle position (voir annexe : examen 
du contenu de l'écran). 


250-280 appellent le sous-programme ‘‘explosion mine'” lorsqu'une mine se 
trouve à cette nouvelle position. Dans le cas contraire, et il ne s'agit pas 
d'un obstacle, l’espion est dessiné dans sa nouvelle position après avoir 
été effacé de l’ancienne. 


290 appelle le sous-programme ‘‘traversée réussie’’ si l'espion a atteint le 
bord droit. 


320 appelle le sous-programme de fin de partie (qui actualise le meilleur score 
et vous demande si vous souhaitez rejouer). 


330 examine votre réponse. 


c) Le sous-programme d'initialisation du jeu (9000-9230) 
9020-9050 définissent les différentes couleurs et effacent l'écran. 


9070-9100 placent dans les ‘‘encriers’” 5 à 15 les couleurs qui seront utilisées 
pour représenter les obstacles. 


9120-9130 fixent les limites de jeu et la position initiale d’un espion. 
9140 fixe le nombre d’espions, le nombre d'obstacles et le nombre de mines. 


9160-9210 fabriquent les différents caractères graphiques. 


d) Le sous-programme d'initialisation d'une partie (8000-8270) 
8020-8060 effacent l'écran, initialisent le score et affichent le meilleur score. 


8080-8140 dessinent les différents obstacles en choisissant au hasard leur cou- 
leur et leur position (8110 vérifie que l'emplacement choisi est libre). 


8160-8210 placent les mines au hasard (8190 vérifie que l'emplacement choisi 
est disponible). 


REMARQUE : les mines sont en fait dessinées dans la même couleur que le fond 
et ceci afin d'être invisibles. Elles restent néanmoins détectables par la fonc- 
tion TEST. En effet, elles sont réalisées avec un numéro d'encre (4) différent 
de celui du fond (O), bien que correspondant à la même couleur (ici O). 


8230-8270 dessinent la file d'attente des espions. 


e) Le sous-programme d'explosion d'une mine (3000-3130) 


3020-3080 dessinent d’abord l’espion à l'emplacement voulu puis, après un court 
instant, en font apparaître ses ‘morceaux’ et émettent une succession de sons 
appropriés. 
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3090-3100 simulent la destruction complète de l'espion en faisant apparaître ses 
‘‘’miettes'” et un son suggestif. 


3110 replace la mine à l'emplacement du sinistre. 


f) Le sous-programme ‘‘traversée réussie’” (2000-2160) 


2060-2090 font retentir un air de victoire (ressemblant à ‘‘la marseillaise’). 


2110-2120 incrémentent le score et l’affichent. 


2130 efface l’espion qui vient de réussir sa traversée. 


g) Le sous-programme de fin de partie (1000-1070) 


1020 actualise le meilleur score. 


1030-1060 vous demandent si vous souhaitez rejouer. 


5. Liste des variables 
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CF 
CE 
BR 
CS 
CD 
X1,X2,Y1,Y2 


XL 


XI,YI 

NE 

NO 

NM 

E$ 
E1$,E2$ 


Couleur du fond. 

Couleur de l'espion. 

Couleur du tour. 

Couleur d'affichage des scores. 
Couleur d'affichage des messages. 


Coordonnées du domaine dans lequel peuvent apparaître les mines 
et les obstacles. 


Abscisse à atteindre par l’espion pour que sa traversée soit con- 
sidérée comme réussie. 


Coordonnées de la position de départ d'un espion. 
Nombre d’'espions. 

Nombre d'obstacles 

Nombre de mines. 

Caractère graphique représentant l’espion (en vie). 


Caractères graphiques représentant l'espion (ou plutôt ses res- 
tes) lors d’une explosion. 


M$ Caractère représentant une mine. Il s’agit d’un carré plein. 


SC Score (nombre d’espions ayant réussi leur traversée). 
IE Numéro de l’espion en cours. 

SC Coordonnées de l’espion en cours de traversée. 
XN,YN Coordonnées du prochain emplacement de l’espion. 
MS Meilleur score. 


Variables auxiliaires 
R$ A C D$ D P I 


X,Y (dans le sous-programme 8000 uniquement). 
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GOAL 


1. Le jeu 
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Vous venez d'être sélectionné comme goal dans une grande équipe de football. 
Saurez-vous être à la hauteur de la situation en interceptant tous les tirs de vos 
adversaires qui se montrent particulièrement adroits. 


Les buts sont matérialisés par deux poteaux sur la droite de l'écran. Vous dépla- 
cez le goal, entre les deux poteaux à l’aide des deux touches ‘’ Î ‘’ et ‘’ | ‘’. Douze 
tirs au but vont avoir lieu. Pour chaque tir, vous voyez apparaître en un endroit 
quelconque de l'écran, un joueur accompagné d’un ballon. Au bout d’un court 
instant (variable d'une fois à l’autre), le joueur ‘‘’shoote’’ dans le ballon et il vous 
faut l'intercepter. Vous pouvez déplacer le goal dès que le joueur apparaît. Comme 
vous le constaterez, vos adversaires sont très habiles puisqu'ils tirent toujours 
dans les buts. 


















































Le programme affiche le nombre d'essais, le nombre de ballons interceptés et 
le meilleur score réalisé depuis le début du jeu. 


2. Le programme 


160 
110 
120 
150 
140 
150 
169 
170 
180 
{90 
200 
210 


CREREFRRERENEREREREEEXE GOAL XXXXEEXE RENE EE EN ERUERUUE EEE EX 


DEF FNSC(X,V)=TEST(16x(X-1)+7,16%(25-Y)+13) 
GOSUE 9000 
GOSUE 8000 
FOR IC=1 TO NC 
GOSUB 5000 
GOSUE 2900 
LOCATE K,Y: FRINT " "; 
“ X=X+2: Y=Y+DY 
IF X)=XG THEN GOSUR 4000: GOTO 23 
FEN 3: LOCATE X,Y: FRINT Ef: 
50TO 170 : 
MEXT IC 
IF SC:HS THEN MS= 
FEN 31 LOCATE 6,12 
WHILE INKEV#£5""2: WEND 


41 


42 


270 

28û 

290 

300 

310 

3000 
3010 
3020 
Z0Z:0 
5040 
3050 
3060 
2070 
5980 
30970 
3100 
31190 
3120 
3130 
4000 
4010 
4020 
4070 
4040 
4050 
4Géû 
4070 
4080 
4690 
4100 
4iio 
4120 
4150 
5900 
0010 
5050 
9030 
5040 
5050 
5060 
5070 
5080 
2090 
5100 
o110 


FRINT "voulez vous rejouer (O/N)1?"; 
RÉS=INKEVS: IF R$="" THEN 280 

IF R£<È"N" THEN 140 

END 


GA=INKEY(0): DR=INKEY(2) 
IF GAXDR=O THEN 3060 
FOR K=1 TO 20: NEXT K 
RETURN 
LOCATE XG,YG : PRINT " "; 
LOCATE XG,YG+{1: PRINT " "; 
YG=YG-(GA=0) x (YGOYFI+I)+(DR=O)# (YGEYP2-2 
FEN 1 
LOCATE XG,YG : PRINT GH$; 
LOCATE XG,YG+{: PRINT GB; 
RETURN 


tn SP FIN DE COUP ---------""""" 


IF FNSC(X,Y)=0 AND FNSC(X-1,Y)=0 THEN 4070 
EC=SC+1 

SOUND 1,379,6 

PEN 2: LOCATE 15,24: PRINT SC; 
GOTO 4090 

FOR H=500 TO 200 STEP -20: SOUND 1,H,1: NEXT H 


LOCATE X9,YJ: PRINT " ":; 
LOCATE XJ,Yd+i: FRINT " "; 
FOR K=1 TO iGü: NEXT K 
RETURN 


Fm SP INITIALISATION D'UN COUP -------""" 
PEN 24 LOCATE 7,24: PRINT IC; 


X=X1+2%INT(RND(1)x(X2-X1+1)7/2) 
Y=YI+2#INT(RND({)#(Y2-Y1+1)/2) 
DY=INT(RND(1)x5)-2 
VI=V+(XP-X+1)xDY/7 

IF-YI<=VPI+1 OR YI>VPZ-1 THEN 5040 


XJ=X-1: Va=Y-f 
FEN 3: LOCATE X,Y: FRINT B#; 


8a2ù 
BOIO 
8040 
B95Û 
8060 
8470 
8080 
8090 
6100 
8110 
6120 
B150 
8140 
6150 
Bi6ü 
8170 
8180 
9000 
S010 
9020 
9050 
6040 
9050 
S960 
9070 
9)EG 
9990 
9100 
9110 
9120 
9150 


LOCATE XJ,YJ : PRINT JH$; 
LOCATE XJ,YJ+i: PRINT JEI$; 


FOR IA=i TO TH*RND(I) 
GOSUE 3000 
NEXT IA 


PEN 3: LOCATE XJ,YJ+1: PRINT JE2$#; 
SOUND 1,47B,4 
RETURN 


Pan m— SP INITIALISATION FARTIE ------- 
SC=60: XG=XP: VG=(YPI+YP2)/2: CLS 


PEN 2 

LOCATE XP-1,YP1i-1: PRINT P#; 
LOCATE XP-1,YFI : PRINT F5; 
LOCATE XP-1,YF2 : PRINT P$; 
LOCATE XF-1,YF2+1: PRINT F#; 


FEN 1 
LOCATE XG,YE : PRINT GH$: 
LOCATE XG,YG+1: PRINT GEBf; 


PEN 2: LOCATE 5,25 

FRINT "BALLON SCORE M-SCORE"; 
LOCATE 25,24: FRINT M5; 

RETURN 


MODE ji 

CE=21: BR=0: CG=6 : CF=7: CB=2 

INK O,CE: INE 1,06: INK 2,CF: INE 3,CE 
BORDER BR: FAFER 0: CLS 


Ki=g: X2=26: Yi=2: Y2=21 
YFi=Z: YF2=16: KXF=37 
NC=12: TM=160: ME=0 


SYMBOL AFTER i66 


SYMEOL 160, 0,56,56,48,63,56,52,50 
SYMEOL 161, 49,40,40,40,40,40,60,0 
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9140 SYMEOL 162, 45,40,36,58,38,38,51,0 

9150 SYMBOL 163, 0,28,28,12,252,28,44,76 

9160 SYMBEOL 164, 120,20,16,68,68,68,204,0 

9170 SYMEOL 165, 24,60,126,126,126,126,60,24 

9180 JHÉ$=CHR#E(160): JEIF=CHRÈ(I61): JB2H=CHRE(162) 
9190 GH$=CHRS (163): GE$=CHR#S(164): B$=CHR$ (165) 
9200 FF=CHRE(147)+CHRE(143) 

9219 ‘ 

G770 RETURN 


3. Si vous souhaitez personnaliser ce programme 
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> Pour changer les couleurs 


e du terrain 

Remplacez, en 9030, la valeur 21 (dans CE = 21) par un nombre de votre choix 
(entre O et 26). 

e du tour de l'écran 

Remplacez, en 9030, la valeur O (dans BR = O) par un nombre de votre choix 
(entre O et 26). 


e du joueur 


Remplacez, en 9030, la valeur 2 (dans CB 
{entre O et 26). 


2) par un nombre de votre choix 


e du goal 


Remplacez, en 9030, la valeur 6 (dans CG 
(entre O et 26). 


6) par un nombre de votre choix 


> Pour modifier le nombre d'essais d'une partie 


Remplacez, en 9090, le nombre 12 (dans NC = 12) par une valeur de votre choix. 


œ Pour modifier la taille des buts 


Modifiez, en 9080, les valeurs de YP1 (ici 2) et de YP2 (ici 18) qui fixent la posi- 
tion des poteaux. 


Ainsi par exemple : 
9080 YP1=8: YP2=18 : XP=37 
vous fourniront des petits buts, tandis qu'avec : 


9080 YP1=2: YP2=22 : XP=37 


ils occuperont presque toute la hauteur de l'écran. 


œ Pour utiliser une poignée de jeu 


Remplacez les lignes 3020 et 3030 par : 


3020 D=JOY(0) 
3030 IF D < >0 THEN 3060 


et remplacez 3080 par : 
3080 YG=YG-(D=1) « (YG >YP1+1) + (D=2) x (YG<YP2-2) 


4. Description du programme 


a) Techniques employées, décrites en annexe 
— Hasard, 

— Animation, 

— Lecture rapide du clavier, 


— Examen du contenu de l'écran. 


b) Le programme principal (100-300) 


120 définit une fonction permettant de connaître le numéro d'encre d'un point 
graphique de l'emplacement texte de coordonnées X,Y (ce point est choisi de 
telle manière qu'il figure à la fois dans la partie haute et la partie basse du goal). 


130 appelle le sous-progamme d'initialisation du jeu. 
140-290 correspondent au déroulement d’une partie. Elles sont répétées jusqu'à 
ce que vous précisiez que vous ne souhaitez plus rejouer : 
140 appelle le sous-programme d'initialisation d'une partie. 
150-230 proposent les douze essais. Pour chaque coup : 
160 appelle le sous-programme de début d’un coup. 


170-220 sont répétées jusqu'à ce que le ballon atteigne la ligne des buts : 
170 appelle le sous-programme de déplacement du goal. 
180-210 déplacent le ballon et vérifient s’il atteint la ligne des buts. 


240 actualise le meilleur score. 


250-280 vous demandent si vous souhaitez rejouer. 
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c) Le sous-programme d'initialisation du jeu (9000-9220) 
9020-9050 déterminent les différentes couleurs. 


9070-9080 fixent les limites de la zone à l’intérieur de laquelle le joueur peut 
apparaître ainsi que la position des poteaux. 


9090 fixe le nombre d'essais, le temps d'attente maximum et initialise le meilleur 
score. 


9110-9200 fabriquent les caractères graphiques utilisés pour représenter le joueur, 
le goal et le ballon. 

d) Le sous-programme d'initialisation d'une partie (8000-8170) 

8030 initialise le score, détermine la position initiale du goal et efface l'écran. 

8040-8080 dessinent les poteaux des buts. 

8100-8120 dessinent le goal dans sa position initiale. 


8140-8170 affichent le meilleur score. 


e) Le sous-programme d'initialisation d’un coup (5000-5210) 
5020 affiche le numéro du coup qui va être joué. 
5040-5050 choisissent au hasard un emplacement pour le joueur. 


5060-5080 choisissent au hasard une direction de tir telle que la trajectoire du 
ballon passe entre les deux poteaux. 


5100-5130 dessinent le ballon et le joueur dans la position ‘’prêt à shooter. 


5150-5170 permettent d'attendre pendant un temps tiré au hasard. La répéti- 
tion de l'appel du sous-programme 3000 permet de déplacer le goal pendant 
ce temps. 


5190-5210 dessinent le joueur en train de shooter dans le ballon et émettent un 
son approprié. 
f) Le sous-programme de déplacement du goal (3000-3120) 


3020-3050 examinent le clavier. Si aucune des 2 touches + et — n’est pressée, 
on quitte le sous-programme après un léger temps d'attente (qui permet ainsi 
au ballon de ne pas se déplacer plus vite que lorsque vous déplacez le goal). 


3060-3070 effacent le goal de sa position actuelle. 


3080-3110 déterminent la nouvelle position du goal et l'y redessinent. 


g) Le sous-programme de fin d’un coup (4000-4130) 


4020 examine si le ballon est intercepté par le goal. 


4030-4060 exécutées en cas de succès, ces instructions actualisent le score, 
l'affichent et émettent un son approprié. 


4070 émet un son correspondant à l'échec. 


4090-4110 effacent le joueur et attendent un instant. 


5. Liste des variables 


CE 
BR 
CG 
CP 
CB 
X1,X2,Y1,Y2 
XP 
YP1 
YP2 
NC 
TM 


MS 
JH$ 
JB1$ 


JB2$ 


GH$ 
GB$ 
SC 


Couleur du terrain. 

Couleur du pourtour de l'écran. 

Couleur du goal. 

Couleur des poteaux des buts et des scores. 

Couleur du joueur et du ballon. 

Coordonnées du domaine dans lequel le joueur peut apparaître. 
Abscisse de l'extrémité droite des poteaux. 

Ordonnée de l'extrémité basse du poteau supérieur. 

Ordonnée de l'extrémité haute du poteau inférieur. 

Nombre de coups d'une partie. 


Temps d'attente maximum s’écoulant entre l'apparition du joueur 
et le moment où il shoote dans le ballon. 


Meilleur score. 
Caractère graphique représentant la partie supérieure du joueur. 


Caractère graphique représentant la partie inférieure du joueur en 
position de repos. 


Caractère graphique représentant la partie inférieure du joueur 
lorsqu'il shoote dans le ballon. 


Caractère graphique représentant la partie supérieure du goal. 
Caractère graphique représentant la partie inférieure du goal. 


Score (nombre de ballons interceptés). 
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XG,YG 


X,Y 
DY 


Y1 


XJ,YJ 


Coordonnées du goal. 
Numéro du coup qui est en train de se jouer. 
Coordonnées du ballon. 


Indique la direction de déplacement du ballon. Sa valeur (-2, -1, 
0, 1 ou 2) représente le déplacement vertical correspondant à un 
déplacement horizontal de deux unités. 


Ordonnée de l'intersection de la trajectoire du ballon avec la ligne 
des buts. 


Coordonnées du joueur. 


Variables auxiliaires 


R$ 


A 


R 


IA 


7 
Reconstitution 


1. Le jeu 


Un crime vient d’être commis. La victime a été coupée en morceaux | Et le pire, 
c'est que vous êtes chargé de la reconstitution. De la reconstitution des circons- 
tances du crime, pensez-vous ! Vous n'y êtes pas. il s’agit de la reconstitution 
de la victime... 


Dure affaire, pensez-vous. En fait, nous jouons sur les mots puisque la victime 
n'est autre qu’un mot qui va se présenter à vous avant qu'une explosion n'en 
disperse les lettres sur l'écran. Vote mission consiste à les ramasser le plus vite 
possible et dans le bon ordre. 


Vous ramassez les lettres grâce à une ‘’boule’’ que vous promenez sur l'écran 
à l’aide des quatre touches fléchées. Au début de la partie, le programme vous 
laisse examiner à loisir l’état de la situation : position des lettres, de la boule, meil- 
leur chemin à suivre. Quand vous pensez être prêt, vous appuyez sur une tou- 
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che du clavier. A partir de là, dès que vous aurez mis votre boule en mouve- 
ment en la dirigeant à l’aide de l’une des quatre flèches, plus rien ne pourra l'arrêter. 


Notez bien que pour votre boule, l'écran est ‘‘’sphérique'’. Autrement dit, si la 
boule disparaît à gauche, elle réapparaît aussitôt à droite au même niveau. De 
même, si elle disparaît en haut, elle réapparaît en bas de l'écran, au-dessus des 
trois lignes servant à l'affichage d'informations. 


Au fur et à mesure que vous ramassez les lettres, vous voyez s'inscrire, en bas 
de l’écran le mot partiellement reconstitué. Le programme affiche en permanence 
le temps écoulé. 


Si vous gagnez, vous voyez apparaître le mot ‘’GAGNÉ'’ et votre temps moyen 
(par lettre) ainsi que le meilleur score. Si vous perdez, vous ne verrez que le mot 
‘‘PERDU”'. 


2. Le programme 


100 
110 
120 
150 
140 
150 
160 
170 
180 
190 
200 
210 
220 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
360 
7900 
7010 
7020 
7030 
7640 
7950 
7960 
7070 
7080 
7090 
7100 
7110 
7120 


HÉHFÉREREREXLELEXE RECONSTITUTION KXXHEXEXENRENEEREEEEEÉEEE 


GOSUB 9000 


GOSUB 6000: OK=0: RESTORE 830 
FOR NL=1 TO LEN(HOF) 
RH=INKEYS: IF R£="" THEN DN=0 ELSE DN=A5C(R$) 
IF DN>=240 AND DN<2247 THEN DL=DN 
XN=X+(DL=242)-(DL=243) 
YN=Y+(DL=240)-(DL=241) 
IF XN£€X1 THEN XN=X2 
IF XN>X2 THEN XN=XI 
IF YNSYI THEN YN=Y2 
IF YN>Y2 THEN YN=Yi 
T=T+i: LOCATE #1,4,23: PRINT #i, T: 
IF DL=0 THEN 150 
C£=EC# CXN,YN) 
LOCATE X,Y: PRINT " "; 
K=XN: Y=YN: LOCATE X,Y: PRINT B#; 
IF C#="" THEN 150 
IF C#<MIDS(MOS,NL,1) THEN 350 
LOCATE #1,13,3: PRINT #1,LEFT# (MODS, NL) 
ECS(X,Y)="" 
READ H: SOUND 1,H,10 
NEXT AL 
OK=1 
GOSUB 7000 


IF R£<2"N" THEN 130 
END 


‘ 


FOR K=1 TO 200: NEXT K 
CLS #1 
IF OK=1 THEN 7100 


LOCATE #1,2,2: PRINT #1,"PERDU"; 
FOR H=190 TO 700 STEP 10: SOUND 1,H,1: NEXT H 
GOTO 7160 


LOCATE #1,2,2: FRINT #i,"GAGNE"; 


FOR H=250 TO 190 STEF -20: SOUND 1,H,20: NEXT H 
TM=INT(T/NL) 
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7130 
7140 
7150 
7180 
7170 
7166 
7190 
7200 
8600 
8010 
BUE0 
EUIO 
6940 
8250 
8960 
E070 
6060 
8590 
6100 
8110 
B120 
8130 
6140 
8i50 
8140 
8170 
6160 
8190 
8200 
8210 
8:50 


8230. 


8:40 

250 
8260 
8270 
6260 
8290 
8:00 
8310 
6320 
8350 
6246 
8350 
8340 


LOCATE #i 


17 
sis 


PRINT #1i,"TEMPS MOYEN": TM; 
LOCATE #1,13,2: FRINT #{1,"MEILLEUR TEMPS"; MT; 


WHILE INKEY#<2"": WEND 
FRINT #i,"rejouez vous (D/N)7": 
IF R$="" THEN 7160 


LOCATE #!, 
R£=INKEVS: 
RETURN 


T=0 


K={+INTOIRND(I)xNM): 
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LOCATE i0,1û: 


FOR X=1 TO 


X2: 


ECF(X,YI="" 
NEXT Yi NEXT X 


RESTORE 83860 

FOR I={ TO LEN(MO#) 
X=XI+INT(RND(I)x(KX2-X1+1)) 
Y=YL+INT(RMND(I)#(V2-V{I+1)) 


IF EC$(X,Y)<>"" OR Y=10 THEN 8150 


FRINT MO; 


HG$=HOS (K) 


FOR Y=i TO Y2 


LOCATE 10+1-1,10: FRINT ‘ 
READ H: SOUND 1,H,10 


LOCATE X,Y: 


EC#(X,Y)=MIDS(MGS#,1I,1) 
FOR K={1 TO 160: NEXT KE 


NEXT I 


X=X1+INT(RND(1)#(X2-X1+1)) 
Y=Y1+INT(RND(1)#(Y2-VI+1)) 
IF ECS(X,Y)<)"" THEN 8230 
LOCATE X,Y: FR 


DL=0 


INT Ef; 


WHILE INKEY$<>""23 WEND 


LOCATE #1, 
FRINT #1, 


CLS #1 
LOCATE #i, 
RETURN 


PA 
isi 


le 
3 


FRINT MID£(MO#,I,1); 


“pour commencer, tapez sur une touche"; 
R£=INKEVS: IF R#="" THEN 6320 


&,i: 


PRINT #1, 


"TEMPS"; 


85:70 

8360 DATA 478,426,379,550,:19,284,255 

6:50 DATA 239,213,190, 179,159,142,127 

8400 DATA 119,106,95,89,80,71,65 

B4i0 ‘ 

GOGGr rsSrsesessee SF INITIALISATIGON DU JEU ---------------- 
9010 ‘ 


a CEz=i: His CH=24: ER=0 
,CEI: INÉ SIN: INK 2,CE2: INK 3,CM 
_. O0: EGRDER BR: CLS 







ii DATA 9 
7120 DATA EXTRAGRDINAIRE, MAGNIFIQUEMENT, OSTENSIBLEMENT 
1:60 DATA FARCIMONIEUSEMENT, DECALCOMANIE, CARACTERISATION 
7140 DATA BUDGETISATION, ENREGISTREMENT, PROGRAMMATION 
7130 
Fi60 RESTORE 9110 
5179 READ NM: DIM MOfCNM) 
[a 


1,40,Y2+1,25 





3. Si vous souhaitez personnaliser ce programme 


> Pour modifier la couleur du fond 


Remplacez, en 9020, la valeur 23 (dans CE1 = 23) par un nombre de votre choix 
(entre O et 26). 
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> Pour modifier la couleur de la boule et des lettres 

Remplacez, en 9020, la valeur 6 (dans IN = 6) par un nombre de votre choix 
(entre O et 26). 

m Pour jouer sur un domaine plus petit 


Agissez sur la ligne 9070 en augmentant les valeurs de X1 et Y1 et en diminuant 
celles de X2 et Y2. Vous pouvez essayer, par exemple : 


9070 X1=10 : X2=30 : Y1=5: Y2=20 


> Pour ajouter de nouveaux mots ou pour modifier les mots proposés 


Il vous faut savoir que les instructions ‘DATA’ des lignes 9110 à 9140 
fournissent : 


— le nombre total de mots (ici 9), 


— la liste de ces mots. Chaque instruction peut contenir un nombre quelconque 
de mots ; ceux-ci doivent simplement être séparés par des virgules. 


Notez bien que vous pouvez placer, non seulement des mots ayant un sens, mais 
éventuellement n'importe quelles suites de caractères (lettres, chiffres...). Cela 
peut rendre le jeu quelque peu plus compliqué. 


> Pour utiliser une poignée de jeu 


Remplacez les lignes 150 et 180 par : 


150 DN=JOY(0) 

160 IF DN=1 OR DN=2 OR DN=4 OR DN=8 THEN DL=DN 
170 XN=X+(DL=4) - (DL=8) 

180 YN=Y + (DL=1) - (DL=2) 


4. Description du programme 
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a) Techniques employées, décrites en annexe 
— Hasard, 

— Animation, 

— Lecture du clavier, 


— Examen du contenu de l'écran 


b) Le programme principal (100-370) 
120 appelle le sous-programme d'initialisation du jeu. 


130-360 correspondent au déroulement d'une partie. Elles sont répétées jusqu'à 
ce que vous précisiez que vous ne voulez plus rejouer : 


130 appelle le sous-programme d'initialisation d'une partie et place le pointeur 
de ‘‘data”’ sur le début des instructions ‘DATA’ contenant les hauteurs des 
notes qui seront jouées au fur et à mesure que vous reconstituerez le mot 
voulu. (Notez que l'instruction RESTORE est nécessaire ici, car d’autres ins- 
tructions DATA sont lues par ailleurs). 


140-330 répètent les instructions 150-320 (correspondant au ramassage d’une 
lettre) jusqu'à ce que toutes les lettres aient été ramassées ou que vous en 
ratiez une. Pour chaque lettre : 


170-290 sont répétées jusqu'à ce que la boule rencontre une lettre (bonne 
ou mauvaise) : 


150-160 déterminent, dans DL, le code du nouveau déplacement de la 
boule, en fonction de l’ancien (DN) ou de la touche enfoncée. 


170-220 déterminent les nouvelles coordonnées de la boule, en tenant 
compte de ce que notre domaine est sphérique. 


230 actualise le temps et l'affiche. 
240 s'assure que la boule n’est pas immobile (cas du début d'une partie). 


250-270 déplacent la boule après avoir mémorisé dans C$, le caractère 
se trouvant au nouvel emplacement. 


280 examine si le nouvel emplacement était disponible. 
290 examine si la lettre rencontrée est la bonne. 


300-320 affichent la lettre rencontrée, lorsqu'elle est correcte et émettent la 
note suivante (de la liste fournie en DATA). 


340 exécutée uniquement lorsque toutes les lettres ont été correctement ramas- 
sées, cette instruction positionne l'indicateur OK. 


350 appelle (dans tous les cas) le sous-programme de fin de partie. 


360 examine si vous voulez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9270) 
9020-9040 déterminent les différentes couleurs. 
9060 initialise le meilleur score. 


9070 fixe les limites du domaine où évolue la boule. 


55 


56 


9080 réserve un tableau où seront conservés les caractères affichés en chaque 
emplacement de l'écran. 


9090 fabrique le caractère ‘‘boule”’. 


9110-9200 remplissent, grâce aux ‘DATA’ des lignes 9110 à 9140, le tableau 
MO$ dans lequel un mot sera tiré au hasard à chaque partie. 


9220-9250 définissent l'emplacement et les couleurs de la fenêtre numéro 1 uti- 
lisée pour les différents affichages en bas de l'écran. 

d) Le sous-programme d'initialisation d'une partie (8000-8410) 

8020 efface l'écran. 

8040 initialise le compteur de temps. 

8060-8070 choisissent un mot au hasard (dans MO$) et l’affichent. 

8070-8090 initialisent le tableau ECS. 


8110-8210 affichent en musique chaque lettre du mot en un emplacement quel- 
conque de l'écran. Pour chaque lettre, on lit la ‘’note’’ à jouer dans les ‘'DATA” 
des lignes 8380 à 8400. 


8230-8260 déterminent au hasard un emplacement disponible pour la boule et 
la dessinent. 


8270 initialise le déplacement de la boule. 
8290-8320 attendent que vous frappiez sur une touche. 


8290-8250 effacent la partie inférieure de l'écran et affichent le titre ‘’ TEMPS". 


e) Le sous-programme de fin de partie (7000-7190) 
7020-7030 attendent un instant avant d'effacer la partie inférieure de l'écran. 
7040 examine si vous avez gagné (OK = 1). 


7060-7080 affichent le mot ‘’PERDU'" et émettent un son approprié, en cas 
d'échec. 


7100-7140 affichent, en cas de réussite, le mot ‘’ GAGNÉ’ en émettant un son 
approprié, affichent le temps moyen et le meilleur score et actualisent le meil- 
leur score. 


7160-7180 vous demandent si vous voulez rejouer. 


5. Liste des variables 


CE1 
CE2 
IN 
BR 
CM 


MT 
X1,X2,Y1,Y2 
ECS$(X2,Y2) 


B$ 
NM 
MOS$ (NM) 


MO$ 
DL 


OK 


NL 
X,Y 
XN,YN 
SX 

TM 


Couleur du domaine où évolue la boule. 
Couleur de la zone inférieure de l'écran. 
Couleur de la boule et des lettres. 
Couleur du tour de l'écran. 


Couleur d'affichage du mot partiellement reconstitué, du temps 
et des scores. 


Meilleur temps moyen réalisé au cours des parties précédentes. 
Coordonnées du domaine de jeu. 


Tableau utilisé pour garder une trace des caractères affichés en 
chacun des emplacements de l'écran. 


Caractère graphique représentant la boule. 
Nombre total de mots parmi lesquels on en choisira un au hasard 


Tableau contenant les différents mots parmi lesquels on en tirera 
un au hasard. 


Temps écoulé depuis le début de la partie. 
Mot tiré au hasard pour la partie en cours. 


Sens de déplacement de la boule. 
O : boule immobile (en début de partie seulement) 
240 : haut 


242 : gauche 
241 : bas 
243 : droite 


Indicateur ‘’gagné/perdu”’. Initialisé en O en début de partie, cet 
indicateur est placé à 1 lorsque le joueur a reconstitué le mot. 


Numéro de la prochaine lettre à ‘’ramasser”’. 
Coordonnées courantes de la boule. 

Coordonnées du prochain emplacement de la boule. 
Contenu du prochain emplacement de la boule. 


Temps moyen réalisé au cours de la partie. 


57 


Variables auxiliaires 

| RS A K 

X et Y (dans le sous-programme 8000) 
H DN 
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8 
Phosphore 


1. Le jeu 


Le but de ce jeu de mémoire consiste à retenir des suites de lettres les plus lon- 
gues possibles. Dix essais vous sont proposés. Pour chacun d'entre eux, le pro- 
gramme commence par vous montrer pendant un court instant une première let- 
tre choisie au hasard. || vous demande ensuite quelle était la lettre affichée. Si 
votre réponse est correcte, le programme vous gratifie d'un petit compliment et 
vous montre à nouveau cette lettre suivie d'une deuxième. Cela se poursuit ainsi 
avec trois lettres, puis quatre... jusqu'à ce que vous vous trompiez. Vous mar- 
quez alors un nombre de points égal au nombre de lettres que vous avez réussi 
à retenir. 


Le programme affiche en permanence le numéro de l'essai que vous êtes en train 
de jouer, le nombre de lettres que vous avez déjà mémorisées pour l'essai en cours, 
votre score et le meilleur score. 
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Chaque lettre proposée est accompagnée d'une note de musique (qui reste la 
même pour une lettre donnée) ; cela peut quelque peu faciliter votre mémorisation. 


2. Le programme 
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100 
119 
120 
150 
140 
159 
169 
176 
180 
{50 
200 
219 
220 
220 
240 
250 
260 
279 
5000 
5010 
5020 
0020 
5940 
90950 
5060 
5070 
5060 
5060 
5100 
J119 
5120 
51:30 
5140 
9150 
siéû 
9170 
5190 
3150 


CRRHERAENRAEEEENEXESEX PHOSPHORE KKXX EX E ERREUR NN E ER EE SX 


GOSUE 9000 
GOSUE 6900 
FOR CC=i TO NC 
LEz="" 
LOCATE 12,2: FRINT CC; 
GOSUEÉ 6000: GOSUE &590: GOSUB 5000 
Fr OK=i THEN 170 
GOSUE 7500 
NEXT CC 
IF SC:ME THEN MS=GC 
CLS#i: INK Z,CD: INK S,CED 
LOCATE #1,5,9: PRINT #1, “voulez vous rejouer (D/N)?7": 
R£=INKREVS: IF R="" THEN 240 
IF RÇEUN" THEN 130 
END 


te — SP LECTURE REPONSE --------"-"""""""" 


INE 2,CD: INK 3,CED: PAPER #1,2: PEN #1,3: CLS #1 
NLELEN(LE#) 
LOCATE #1, 2,5 
WHILE INKEYF<>"Ur WEN 

IF NL={ THEN PRINT #1, "quelle etait la lettre7"; 
IF NL THEN FRINT#{,"quelles etaient les'";NL;'"lettres"; 
LOCATE #1, 2,8 
FOR I=i TO NL 

R$=INKEY$: IF R$="" THEN 5100 

PRINT #1, R#; 

IF R$<DMID#(LES,1,1) THEN 5230 
NEXT I 


LOCATE #1, 2,10 
FRINT#I, RECINT(RND(I)#NR+1)) 

FOR K=1 TO 100: NEXT K 

SOUND 1,478,9: SOUND 1,379,9: SOUND 1,319,9:SOUND 1,239,9 
OK=1 


5200 
5210 
9220 
5230 
5240 
92290 
3260 
5270 
5280 
92990 
53090 
9310 
6990 
6010 
&020 
&03z0 
6040 
8050 
6960 
6070 
bÜEO 
6650 
6106 
&tic 
£i20 
8120 
614û 
6159 
6500 
6316 
6520 
6530 
6540 
6550 
6560 
6570 
6580 
6590 
EEÔG 
64io 
7500 
7519 
7520 
75230 
7540 


FOR K=i TO 100: NEXT K 
RETURN 


LOCATE #1, 2,10 

PRINT #1, NÉCINT(RND(I)#NN+1)) 

FOR H=200 TO 500 STEP 10: SOUND 1,H,2: NEXT H 

FOR K=1 TO 200: NEXT K 

Ok=0 

LOCATE #1, 2,11: PRINT #1, "LA BONNE REPONSE ETAIT": 
LOCATE #1, 2,13: GOSUB 6500 

RETURN 


te SP PREPARATION AFFICHAGE LETTRES ---------- 


IN 2,CD: INK 3,CED: PAPER #1,2: PEN #1,3: CLS#1 
LOCATE #1, 11,8: PRINT #1, REGARDE l"; 
FOR K=1 TO 100: NEXT K 


CE=CE(INT(RND(1)#NE+1)) 
CF=CFCINT(RND(I)#NF+1)) 
C=65+INT(RND(1) +26) 

LES=LE#+CHRE(C) 

LOCATE 12,4: PRINT LEN(LES#) 

INK 2,CE: INK 3,CF: PAPER #1,2: PEN #1,2 
CLS #1 

LOCATE #1, 3,7 

RETURN 


FOR I=1 TO LEN(LES$) 
CH=MIDH(LES,1,1): PRINT #1, Cf; 
C=ASC(C#) 

H=10#(C-50) 

- SOUND 1,H,10 
FOR K=i TO 150: NEXT K 

NEXT I 

FOR K=1 TO 1060: NEXT K 

RETURN 


P=LEN(LES$)-1 
LOCATE #1,2,15: PRINT #i,"vous marquez"; P; "POINTS": 
FOR Kz=i TO 100: NEXT K 
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7550 
7560 
7570 
7589 
759 
7600 
7610 
7620 
7650 
7640 
8090 
8919 
8020 
B9Z0 
6040 
8050 
8060 
8970 
8580 
8990 
8150 
Biio 
9000 
G010 
9020 
90:0 
9040 
9050 
9060 
9070 
S080 
9090 
9100 
9110 
Gi20 
9130 
8:40 
9150 
9160 
9170 
9180 
9190 
9200 
9210 


9220 


SC=SC+F 

LOCATE 24,2: PRINT SC; 

FOR K=1 TO 200: NEXT K 

IF CC=NC THEN RETURN 

LOCATE #f, 2,16: INK 2,CD: INK S,CED 

PRINT #1, "tapez sur une touche pour continuer";; 
RÉ£=INEEYS: IF R$="* THEN 76270 

RETURN 


CLS: CLS #1 

LOCATE 5,2: FRINT "COUF'"; 
LOCATE 5,4: PRINT "LETTRES"; 
LOCATE 17,2: FRINT "SCORE"; 
LOCATE 17,4: PRINT "M-SCORE"; 
LOCATE 24,4: FRINT MS; 


5C=0 
LOCATE 28,2: PRINT “ "; 

RETURN 

EE SF INITIALIGATION DU JEU -------"-"-" 
CES=7: CS<i: CED=7: CD=1: BR=Î6 


CS=i 
NC=10: M6=0 


DATA 6,0,1,2,3,4,9 
READ NF: DIM CF(NF) 
FOR I=1 TO NF 

READ CF(I) 
NEXT I 


DATA 13,10,11,12,13,14,15,16,17,20,21,24,25,26 
READ NE: DIM CE(NE) 
FOR I=1 TO NE 
READ CE(I) 
NEXT I 


DATA 9 
DATA OK,GUI,EKACT,BIEN,JUSTE,CORRECT,BRAVO,PARFAIT,VRAI 
READ NR: DIM R£(NR) 
FOR I=i TO NA 
READ R$(I) 
NEXT I 


9230 
9240 DATA 5 

9250 DATA NON,FAUX,INEXACT, INCORRECT , ERREUR 
9260 READ NM: DIM N$(NM) 

9270 FOR I=1 TO NM 

9280 READ N#(I) 

9290 NEXT I 

300 ‘ 

9310 MODE 1: CLS 

9320 INK O,CES: INK 1,CS 

9330 PAPER O0: PEN 1: BORDER BR 

9340 WINDOW #1, 1,40,6,25 

9350 PEN #1, O: PAPER #1, ! 

9360 RETURN 


3. Si vous souhaitez personnaliser ce programme 


> Pour modifier le temps qui s'écoule entre l'affichage de deux lettres 
successives. 


Remplacez, en 6570, le nombre 50 par une valeur de votre choix. Par exemple : 
6570 FOR K=1 TO 100 : NEXT K 

conduira approximativement à un rythme deux fois plus lent. 

De façon analogue : 
6570 FOR K=1 TO 25 : NEXT K 


conduira à un rythme deux fois plus rapide. 


> Pour modifier le temps d'attente à la fin de la présentation d’une suite 
de lettres 


Remplacez, en 6590, la valeur 2000 par un nombre de votre choix. 


> Pour supprimer le message ‘’REGARDEZ"' qui précède chaque séquence 
de lettres 


Supprimez les lignes 6020 à 6040. 


> Pour modifier le nombre d'essais proposés 


Remplacez, en 9030, la valeur 10 (dans NC = 10) par une valeur de votre choix. 
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> Pour modifier les couleurs employées lors de la présentation des suites 
de lettres, sachez que : 


e l'instruction DATA de la ligne 9050 contient le nombre de couleurs de fond 
(ici 6) suivi des codes de ces couleurs (ici O, 1, 2, 3, 4 et 9). 


e l'instruction DATA de la ligne 9110 contient le nombre de couleurs d'écriture 
(ici 13) suivi des codes de ces couleurs (ici 10, 11, 12, 13, 14, 15, 16, 17, 
20, 21, 24, 25 et 26). 


REMARQUE : évitez de placer deux codes de couleurs identiques dans chacune de 
ces instructions car, dans certains cas, les lettres proposées seraient invisibles. 
> Pour obtenir des suites de chiffres à la place des suites de lettres 
Remplacez la ligne 6080 par : 

6090 C=48 + INT (RND (1) « 10) 


4. Description du programme 


a) Techniques employées, décrites en annexe 


— Hasard. 


b) Le programme principal (100-260) 
120 appelle le sous-programme d'initialisation du jeu. 


130-250 correspondent au déroulement d'une partie. Elles sont répétées jusqu'à 
ce que vous précisiez que vous ne souhaitez pas rejouer : 


130 appelle le sous-programme d'initialisation d’une partie. 


140-200 proposent les dix essais. Pour chaque essai : 
150 initialise la suite de lettres proposées. 
160 affiche le numéro du coup. 


170-180 ajoutent une lettre à la suite (sous-programme 6000), l'affichent 
(6500) et lisent votre réponse (5000) et ceci jusqu'à ce que votre réponse 
soit fausse. 


190 appelle le sous-programme de fin d'un coup. 
210 actualise le meilleur score. 


220-240 vous demandent si vous souhaitez rejouer. 


64 


c) Le sous-programme d'initialisation du jeu (9000-9360) 
9010 détermine les couleurs. 
9030 fixe le nombre de coups et initialise le meilleur score. 


9040-9090 déterminent les différentes couleurs de fond qui seront utilisées lors 
de la présentation des lettres. 


9100-9150 déterminent les différentes couleurs d'écriture qui seront utilisées 
lors de la présentation des lettres. 


9160-9220 déterminent les différents messages de ‘’compliments’” formulés en 
cas de réponse exacte. 


9230-9290 déterminent les différents messages formulés en cas de réponse 
fausse. 


9310-9350 définissent la fenêtre numéro 1 (où se déroulera le jeu) et fixent 
les couleurs. 
d Le sous-programme d'initialisation d’une partie (8000-8100) 


8020-8060 effacent l'écran et affichent les différents titres (COUP, LETTRES, 
SCORE, M-SCORE). 


8070-8090 affichent le meilleur score et initialisent le score. 


e) Le sous-programme de préparation de la suite de lettres (6000-6140) 
6020-6040 affichent le mot ‘REGARDEZ’ pendant un court instant. 
6060-6070 choisissent une couleur de fond et une couleur d'encre. 


6080-6090 tirent au hasard une lettre de l'alphabet et l’ajoutent à la suite déjà 
proposée. 


6100 affiche le nombre de lettres de la suite. 
6110-6120 effacent l'écran et en modifient les couleurs. 


6130 positionne le curseur. 


f) Le sous-programme d'affichage des lettres (6500-6600) 


6520-6580 affichent les différentes lettres. Pour chaque lettre : 
6530 affiche la lettre concernée. 
6530-6570 émettent un son dont la hauteur dépend de la lettre. 


6590 attend un instant. 
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g) Le sous-programme de lecture de la réponse (5000-5310) 

5020 modifie les couleurs de l'écran. 

5030 détermine la longueur de la suite de lettres. 

5040-5070 vous demandent quelles étaient les lettres proposées. 
5080-5130 lisent chacune des lettres en-s’assurant qu'elles sont correctes. 


5150-5210 exécutées en cas de réponse correcte, ces lignes affichent un mes- 
sage de compliments, font retentir un petit accord et placent à 1 l'indicateur OK. 


5230-5290 exécutées en cas de réponse incorrecte, ces lignes affichent un mes- 
sage d'erreur, émettant un son approprié, placent à O l'indicateur OK et vous 
affichent (en musique) la bonne réponse. 


h) Le sous-programme de fin d’un coup (7500-7630) 


7520-7540 vous affichent le nombre de points marqués pour l'essai en cours et 
attendent un instant. 


7560-7580 actualisent votre score et attendent un instant. 


7590-7620 attendent que vous frappiez une touche (sauf s'il s’agit du dernier 
coup de la partie). 


5. Liste des variables 
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CES Couleur de fond de la partie supérieure où s'affichent numéro du 
coup, nombre de lettres, score et meilleur score. 

CSs1 Couleur d'affichage utilisée dans cette partie supérieure. 

CED Couleur de fond utilisée lors de la lecture de votre réponse. 

CD Couleur d'affichage de votre réponse. 

BR Couleur du tour de l'écran. 

NC Nombre de coups d'une partie. 

MS Meilleur score. 

NF Nombre de couleurs de fond utilisées lors de la présentation des 
lettres. 

CF(CF) Tableau contenant les codes de ces différentes couleurs. 


NE 
CEI(NE) 
NR 
R$(NR) 
NN 
NS (NN) 
SC 
CC 
LES 
OK 


CE 


CF 
SC 


Nombre de couleurs utilisées pour l'affichage des lettres. 
Tableau contenant les codes de ces différentes couleurs. 
Nombre de messages de ‘compliments. 

Tableau contenant ces différents messages. 

Nombre de messages ‘‘d'erreur. 

Tableau contenant ces différents messages. 

Score. 

Numéro de l'essai en cours. 

Chaîne contenant la suite des lettres proposées. 


Indicateur utilisé à la fin d’un essai : 
0 : la suite de lettres n’a pas été convenablement reconstituée. 
1 : la suite de lettres a été convenablement reconstituée. 


Couleur de fond utilisée pour afficher les lettres pour l'essai en 
cours. 


Couleur utilisée pour afficher les lettres pour l'essai en cours. 


Score. 


Variables auxiliaires 


| A R$ 
NT P 


C CS 
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Les allumettes suédoises 


1. Le jeu 
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Nous vous proposons une version simplifiée du célèbre jeu, connu également sous 
le nom de ‘’Marienbad'”’. Ce programme vous donnera une bonne idée de la qua- 
lité des dessins que peut réaliser votre AMSTRAD. 


Le jeu est prévu, en principe, pour deux joueurs. lci, c'est l'ordinateur (ou plutôt 
le programme) qui tiendra la place de votre adversaire. 


Au départ, 36 allumettes sont présentes. Chaque joueur (l'ordinateur et vous) choi- 
sit à tour de rôle d'enlever un nombre d’allumettes compris entre 1 et 7. Celui 
qui se trouve contraint d'enlever la dernière allumette a perdu. 


Le programme commence par dessiner les 36 allumettes puis choisit au hasard 
celui qui jouera en premier. Quand c’est au programme de jouer, il vous dit : 
‘‘j'enlève x allumettes'’. Vous voyez ensuite les allumettes concernées disparaî- 


conbien d’'allunettes retirez 





tre en musique (chaque allumette égrène une note de la gamme). Quand c'est 
à votre tour de jouer, vous voyez apparaître la question ‘combien d’allumettes 
retirez-vous ?’’. Vous répondez simplement en tapant sur le chiffre correspon- 
dant. Notez que toute touche ne correspondant pas à un nombre compris entre 
1 et 7 fait apparaître le message ‘‘svp entre 1 et 7”. 


Le programme affiche en permanence le nombre d'allumettes restant en jeu 
(RESTE), le numéro de la partie en cours ainsi que le nombre de parties gagnées 
par chacun des partenaires. 


2. Le programme 


LOC CHERREHAEREEREEREEX ALLUMETTES SUEDOISES X#KXXXXRXREXXREX EN EX 
1i6 : 

i20 GOSUB 9000 

129 GOSUE 6000 

140 IF JO=1 THEN GOSUB 5000 ELSE GOSUB 4000 

150 GOSUE 3000 


160  N=N-F 
170  LOCATE #1, 4,3 
180 PRINT #1, N; " "; 


199  JO=-J0 
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70 


200 

2i9 

229 

220 

24û 

250 

3000 
Z010 
3020 
ZGTO 
3040 
2650 
20860 
3670 
20860 
3090 
3109 
3110 
3120 
3150 
3140 
4900 
4010 
4020 
4070 
4040 
4050 
4060 
4070 
4080 
4090 
4190 
+i10 
gi 
4130 
4140 
5000 
9010 
5920 
3070 
5040 
0050 
5060 
5070 
5966 


Sen 


IF N>i THEN 140 
GOSUE 8500 

J5=-JD 

F RSCH"N" THEN 130 

ND 

annennnsss GP EFFACEMENT DE P ALLUMETTES ----- 
KN=1 


FOR I=N TO N-F+1 STEP -1 
X=2 + 2#(I-1) MOD I6 
IF. 1%16 THEN YD={1 ELSE YD=2 
FOR Y=YD TG YD+7 
LOCATE #3, X,V: PRINT #5, " "; 
NEXT Y 
SOUND I,NT(KN),10 
FOR Ez1 TO 300: NEXT E 
ENSEN+I SE IF EN27 THEN KN=1 
NEXT I 
RETURN 


ane SP LECTURE CHOIX DU JOUEUR -------- 


CLS #2: LOCATE #2, 5,2 

FRINT #2, “combien d'allumettes retirez vous?"; 
R$=INKEYS$: IF R$="" THEN 4040 
F=VAL(RE) 

IF P>0 AND P£=PM THEN 4100 
LOCATE #2,15,3 

PRINT #2, "entre 1 et"; FM; 
GOTO 4040 

LOCATE #2, 39,2: PRINT #2, Rf: 
FOR Ez1{ TO iG00: NEXT KE 

CLS #2 

RETUR* 


rnessssseesse SP CHOIX ORDINATEUR DE PF ALLUMETTES 


G=INT(IN/(PMr1)) 

R=N-G+(PM+1) 

F=h-i: IF P<=Q0 THEN P=INT(RND(1)xPM+i) 
IF NÉ=PM+IÎ THEN F=N-{ 


FOR I=1 TO RND(1)*x400: NEXT I 
CLS#2: LOCATE #2, 3,2 


50950 
o10û 
Si10 
ai20 
Si30 
7400 
70 
7020 
7050 
7040 
7050 
7060 
7070 
7060 
7090 
7100 
7110 
7120 
Ti30 
7146 
7i50 
8000 
EG10 
8a20 
EGI0 
Bo4G 
BQS 

8660 
BG70 
8080 
8090 
8100 
8110 
8120 
61230 
5140 
8150 
6160 
Bsûû 
6510 
8520 
B5230 
8540 
8550 
B569 


RINT #2, "j'enleve"; PF: "allumette"; 
IF Pi THEN FRINT #%, ‘ef: 
FOR Kz=1 TO &G0: NEXT K 
RETURN 
honor SF DESSIN DE NX ALLUMETTES ---------------- 
K=2: YD=5 
FOR Izi TO NX 
PEN #3, 2, 
LOCATE #3, X,YD: PRINT #53, THé: 
LOCATE #3, X,YD+1: PRINT #3, TE: 
PEN #5, 1 
FOR Y=YD+Z TO YD+7 
LOCATE #3, X,Y: PRINT #3, B$; 
NEXT Y 
X=k+2 
IF I1=18 THEN K=Z2: YD=11 
NEXT I 
RETURN 
fm SF INITIALISATION PARTIE --------------- 
CLS #2: CLS #3 
NENX: NPENF+i: KMN=I 


LOCATE #1, 4,3: PRINT #1, N; 
LOCATE #1, 10,3: PRINT #1, NP; 
GOSUB 7000 


LOCATE -#£, 3,1 
IF JD=1 THEN PRINT #2, "je joue en premier"; 
IF JD=0 THEN FRINT #2, "vous jouez en premier"; 


JO=JD 
FOR K=1 TO 800: NEXT K 
LOCATE #2, 5,2 
CLE #2 
RETURN 
tn SP FIN DE PARTIE ===" 
FOR K=1 TO 1000: NEXT K 
FOR Y=2 TO 9 
LOCATE #3, 2,Y: PRINT #3, " 


NEXT Y 
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8570 
68560 
8590 
6600 
B&io 
8620 
6630 
B640 
8650 
3000 
GO10 
5020 
6950 
9940 
S050 
G060 
S070 
5080 
5090 
giac 
Si10 
6120 
G12:0 
5146 
6150 
ÿ160 
5i70 
5180 
GiS0 
9200 
G210 
9220 
ÿ230 
9246 
9250 
9260 
g270 


IF N={ AND J 
LOCATE #i, ! 
LOCATE #1, 3 


CLS #2: LOCA 
PRINT #2, "v 
R$=INKEVS: 
RETURN 


oi 


BR=G: 


Css 
C=gJ! 
NX=Ib: Fe 


M=7: 
MODE 1 

INK O0,CE: IN 
WINDOW #1, 1 
WINDOI #2. 1 
WINDOW #3, 1 
PAPER #1,0: 
FAPER #7,0: 
FAFER #3,0: 
IF AND(i) 0. 
LOCATE #1,5. 
PRINT #i,"RE 


SYMECL AFTER 
SYMEOL 160, 
SYMECL 161, 
SYMEOL 1672, 
TH$=CHRE (160 


DIM NT(7) 
DATA 476,426 
FOR I=i TO LE 
RETURN 


IF 


+2 Qi 


THEN PJ=PJ+i ELSE PO=PO+1 
PRINT #1, FO; 
PRINT #1, PJ; 


O=i 
D'PRE 
l,#: 


TE #2, 
oùülez 
R£=: ii 


4,2 
vous rejouer"; 
THEN 8636 


- SF INITIALISATION DU JEU 


c 
Le) 


N 


24 
0) 


CT=é: CÈ 


0: FG=0: 


(ge 
or 
D 
CRT 
Ho +2 


TEL NI 


K Ro INK 2,CT: INK 5,CS 


549,1, 

140,23 ,29 
,40,4,22 
#1,3: CLS 
CLS 


#1 
#2 


ED ZT: 
Î TL ge 


THEN JD=1 ELSE JD=-1 


STE FARTIE MON-SCORE VOTRE-SCORE"; 


160 
0,0,9,0,48,120,752,252 


252,252,252,252,252,12 20,120,120 
129,120,120,120,120,120,120,120 
ja TES=CHRS (161) : B$=CHRS (182) 


15B,319,283,253 
NT(I): MEXT I 


ÿ + 
de 7,58 
EAD 


3. Si vous souhaitez personnaliser ce programme 


> Pour modifier la couleur de la zone où apparaissent les allumettes 


Remplacez, en 9020, la valeur 5 (dans CE = 


5) par un nombre de votre choix 


compris entre O et 26. 
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D Pour modifier le nombre total d'allumettes 

Remplacez, en 9030, le nombre 36 (dans NX = 36) par une valeur de votre choix 
ne dépassant pas 36. 

> Pour modifier la prise maximum autorisée (nombre maximum d’allumet- 


tes que l’on peut prendre en une seule fois) 


Remplacez, en 9030, le nombre 7 (dans PM = 7) par une valeur de votre choix 
ne dépassant pas 9. 


4. Description du programme 


a) Techniques employées, décrites en annexe 


— Hasard. 


b) Le programme principal (100-250) 
120 appelle le sous-programme d'initialisation du jeu. 


130-230 correspondent au déroulement d’une partie. Elles sont répétées jusqu'à 
ce que vous précisiez que vous ne souhaitez plus rejouer : 


130 appelle le sous-programme d'initialisation d'une partie 


140-200 répètent le ‘‘jeu d’un coup’ (par l'ordinateur ou par vous) jusqu'à ce 
qu'il ne reste plus qu'une allumette : 


140 permet le choix du nombre d'allumettes à retirer, soit par vous (sous- 
programme 4000), soit par l'ordinateur (sous-programme 5000). Le joueur 
est précisé par la variable JO (1 : ordinateur, - 1 : vous). 


150 appelle le sous-programme qui efface le nombre d'allumettes voulu. 
160-180 actualisent et affichent le nombre d'allumettes restantes. 
190 change de joueur. 
200 examine si la partie est terminée. 
210 appelle le sous-programme de fin de partie. 
220 change le joueur qui doit débuter. 


230 examine si vous souhaitez rejouer. 
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c) Le sous-programme dl'initialisation du jeu (9000-9270) 
9020 détermine les couleurs. 


9030 fixe le nombre total d'allumettes, la prise maximum autorisée et initialise 
les compteurs de parties gagnées. 


9050-9120 déterminent les emplacements des 3 fenêtres et en fixent les 
couleurs. 


9140 choisit, au hasard, le joueur qui commencera la première partie. 
9140-9150 affichent les différents titres. 


9180-9220 fabriquent les caractères graphiques utilisés pour représenter une 
allumette. 


9240-9260 placent, dans le tableau NT, les sept notes de la gamme. 


d) Le sous-programme d'initialisation d’une partie (8000-8150) 
8020 efface l'écran. 


8030-8050initialisent le nombre d’allumettes, actualisent le numéro de partie et 
affichent ces deux valeurs. 


8060 appelle le sous-programme de dessin de l’ensemble des allumettes. 
8080-8110 précisent qui doit jouer le premier. 


8120-8140 attendent un instant et effacent l'écran. 


e) Le sous-programme de dessin des allumettes (7000-7140) 


La variable NX contient le nombre d’allumettes à dessiner. Si ce nombre ne dépasse 
pas 18, les allumettes sont présentées sur une seule rangée ; dans le cas con- 
traire, elles sont présentées sur deux rangées. 


7020 initialise les coordonnées d’une allumette. 


7030-7130 dessinent toutes les allumettes. Pour chacune d'entre elles : 
7040-7060 dessinent la tête. 
7070-7100 dessinent la tige. 
7110 incrémente l’abscisse d’une allumette. 
7120 tient compte d'un éventuel changement de rangée. 


f) Le sous-programme de choix de l'ordinateur (5000-5120) 


5020-5050 déterminent le nombre d'allumettes à retirer. 


5060-5110 affichent ce nombre et attendent un instant. 


g) Le sous-programme de choix du joueur (4000-4130) 
4020-4050 vous demandent combien d'allumettes vous voulez enlever. 


4060-4090 s’assurent que votre réponse est correcte, en vous précisant s’il y 
a lieu, les valeurs autorisées. 


4100-4120 affichent votre réponse puis, après un court instant, effacent l'écran. 


h) Le sous-programme d'effacement de ‘’P'’ allumettes (3000-3130) 


3020initialise le numéro de la note à jouer (en accompagnement de l'effacement 
d'une allumette). 


3030-3120 effacent les différentes allumettes. Pour chaque allumette : 
3040-3050 déterminent les coordonnées de l’allumette à effacer. 
3060-3080 effacent cette allumette. 

3090 joue la note correspondante. 
3100 attend un instant. 
3110 incrémente le numéro de note. 


i) Le sous-programme de fin de partie (8500-8640) 
8520-8560 efface la dernière allumette, après un court instant. 


8570-8600 actualisent le nombre de parties gagnées (par l'ordinateur ou par vous) 
et en affichent les valeurs. 


8610-8630 vous demandent si vous voulez rejouer. 


5. Liste des variables 


BR Couleur du tour de l'écran. 

CE Couleur de fond des 3 fenêtres. 

CS Couleur d'affichage des scores et des messages. 
CT Couleur de la ‘tête’ des allumettes. 

CB Couleur de la tige des allumettes. 

NX Nombre total d'allumettes. 
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PM 


NP 


PO 


PJ 


JD 


THS$ 


TBS$ 


B$ 
NT(7) 


JO 


YD 


Prise maximum autorisée. 

Nombre de parties jouées. 

Nombre de parties gagnées par l'ordinateur. 
Nombre de parties gagnées par le joueur. 


Joueur qui doit jouer en premier dans la prochaine partie : 
1 : ordinateur 
— 1: vous 


Caractère graphique représentant la partie supérieure de la tête 
d'une allumette. 


Caractère graphique représentant la partie inférieure de la tête 
d'une allumette. 


Caractère graphique servant à représenter la tige d’une allumette. 
Tableau contenant les hauteurs des sept notes de la gamme. 
Nombre d'allumettes restantes. 

Joueur ‘’courant’" (1 : ordinateur, — 1 : vous). 

Nombre d'allumettes à enlever. 

Abscisse d'une allumette. 


Ordonnée courante d'un emplacement écran. 


Variables auxiliaires 


10 
MASTER MIND 


1. Le jeu 


Il s'agit là d'un grand classique des jeux de réflexion. Si vous en connaissez déjà 
les règles, vous retrouverez un univers familier. Par rapport au jeu manuel vous 
rencontrerez essentiellement deux différences : 


e Le nombre de positions peut atteindre 6 tandis que le nombre de couleurs peut 
aller jusqu'à 9. 


e Manuellement, vous preniez un pion pour le déposer dans un trou du plateau 
de jeu. lci, vous sélectionnez la couleur de votre pion grâce à un curseur que 
vous déplacez à l’aide des touches — et +. Cette facon de procéder évite 
la sempiternelle question ‘‘entrez les couleurs choisies’’ qui oblige toujours à 
coder les couleurs (chiffres, lettres...). 
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Le but du jeu 


Il consiste à découvrir une combinaison de couleurs, tirée en secret par l'ordina- 
teur. Pour cela, vous formulez des propositions de combinaison. À chaque fois, 
vous êtes renseigné sur : 


— le nombre de couleurs exactes situées en bonne position, 


— le nombre de couleurs exactes, mais situées en mauvaise position. 


Le déroulement d'une partie 


A chaque partie, le programme vous laisse déterminer la difficulté du jeu en vous 
demandant le nombre de positions et le nombre de couleurs que vous souhaitez 
utiliser. Ce choix vous sera rappelé, tout au long de la partie, en bas et à gauche 
de l'écran. Ainsi, par exemple, 5P signifiera 5 positions et 4C correspondra à 4 
couleurs. D'autre part, la ‘’palette’” des couleurs avec lesquelles vous pouvez jouer 
(compte tenu de votre choix) apparaît en bas à droite de l'écran. 


Le programme choisit ensuite une combinaison de couleurs {les répétitions sont 
possibles). Pour deviner cette combinaison, vous effectuez une proposition en 
choisissant parmi les couleurs de la palette. Pour cela, vous amenez la ‘flèche 
noire’” sous la couleur voulue à l’aide des touches —et + et vous la sélectionnez 
en appuyant sur la barre d'espace. Un pion de la couleur choisie apparaît alors 
en haut à gauche, à l'emplacement qui vous était signalé par une croix. 


Cette croix apparaît maintenant un peu plus bas pour vous montrer que le pro- 
gramme attend que vous choisissiez une seconde couleur. Cela se poursuit jusqu'à 
ce que vous ayez autant de couleurs qu'il y a de positions prévues. 


L'ordinateur vous fournit alors sa réponse sous forme de petits pions accompa- 
gnés de musique. Le rythme d'apparition de ces pions est irrégulier, ce qui donne 
l'impression que l'ordinateur ‘‘réfléchit'’ avant de répondre. La signification des 
pions est la suivante : 


e une couleur à sa place pour chaque petit pion blanc ; 
e une bonne couleur, non à sa place, pour chaque petit pion noir cerclé de blanc. 


Si, par malchance (ou peut-être par chance !), votre proposition ne comporte 
aucune bonne couleur, vous entendrez simplement ‘’zap”" 


Le programme vous demandera ensuite de formuler une autre proposition (à moins 
que vous ne soyez tombé juste au premier coup !). Le Jeu se poursuivra ainsi 
jusqu'à ce que vous trouviez la bonne combinaison ou que vous dépassiez le nom- 
bre maximum (20) de propositions. Dans ce dernier cas, le programme vous four- 
nira sa combinaison cachée et vous pourrez observer tout à loisir l'écran rempli 
de pions de couleurs et éventuellement analyser votre jeu (peut-être, même, véri- 
fier que le programme n'a pas menti ! eh ! on ne sait jamais...). 


Remarque : en cas d'erreur 


Si vous vous trompez (ou si vous changez d'avis !) pendant que vous formulez 
votre proposition, vous pouvez toujours l’annuler ; il vous suffit pour cela de taper 
sur ‘ESC’. 


2. Le programme 


LO0 HR RE ER NO ON A EX XX À MASTER MIND X#%X XXE XXE X À À 
119 ‘ 

1:0 GOSUS 9000 

120 GOSUE 60ûû 


140 CP=i 

150 ‘ 

140 GOSUB 5000: GOSUE 4660 

170 CF=CP+i 

180 IF FXÉÈNF AND CFEENX THEN 160 

166 

200 FX=NP THEN GOSUR 2000 ELSE GOSUB S00û 


LR 
219 FOR K=1 TO 2000: NEXT E 
220 LOCATE #5,1,1 
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250  FRINT #3,"ON REJOUE" 

240 RS=INKEVS Ir R$="% THEN 246 
250 IF RESRUN" THEN 139 

ZE0 END 

570 


2000 ‘------------ SP GAGNE ----- 
2010 

2020 FOR I=1 T0 50 

2070 H=20+S5004RND(1): SOUND 1,H,5 

2040 NEXT I 

2060 LOCATE 11,24: PRINT "GAGNE en" 

2460 LOCATE 11,25: FRINT CF-{:"coups"; 

2070 IF MS(NP,NC))CF-1 OR MO(NP,NC)=0 THEN MS(NP,NC)=CP-1 

2080 RETURH 

2090 ‘ 

3000 SP PERDU ------ 
3010 ‘ 

3020 FOR H=10 TO 400 STEP i: SOUND 1,H,1: NEXT H 

72030 LOCATE 11,25: PRINT "FERDU"; 

3040 LOCATE #2,1,2: PRINT #3,"C'etait : "; 

3050 LOCATE 11,23: PRINT " . 

3060 FOR IC=1 TO NF 

3070 LOCATE 11+1C,23 

3080 PEN TI(IC)-1: PRINT P#; 

1090 NEXT IC 

3100 RETURN 

3110 

9000 ‘------------ SP ANALYSE COMBINAISON ------- 
4010 

4920 FOR I=1 TO NP: TP(I)=TI(I): NEXT I 

4030 ‘ 

4040 FX=0 
4050 FOR I= 
4060 IF TF 
4070 NEXT I 
4080 ‘ 

4090 CX=0 
4100 FOR i=i TO NP 

4110 FOR J=1 TO NP 

4120 IF FR(I)=TP(J) THEN CX=CX+1: TP(J)=0: GOTO 4140 
4130 NEXT J 

4140 NEXT I 


51950 


160 YR=Z*x (NF +1) 


1) THEN =FX+ti: TF(I)=0: FR(I)=-1 


4170 
4180 
5190 
3290 
4710 
3250 
4220 
4240 
4250 
4260 
4270 
4280 
4260 
4300 

510 
4320 
4550 
$340 
4:50 
4360 
4:70 
4:80 
5000 
9010 
9020 
30:10 
5040 
0050 
5060 
5070 
92080 
3050 
Ji00 
5110 
5120 
9130 
5140 
9150 


si6û 


IF FX=0 THEN 4250 

FOR I=1 TO PX 
FOR Kzi TO TMkRND(I): NEXT K 
PEN 10: LOCATE CP,YR: PRINT FF$: 
SOUND 1,478,10 
YR=YR+I 

NEXT I 


IF CEX=0 THEN 4550 

FOR Izi TO CX 
FOR K=i T9 TMxRND(1): NEXT K 
FEN 10: LOCATE CF,YR: FRINT FC#; 
SOUND 1,579,10 
YR=YR+I 

NEXT I 


IF PK+CX<30 THEN 4370 

FOR H=500 TD 200 STEF -10 
SOUND 1,H,1 

NEXT H 

RETURN 


LOCATE #3,1,2 
PRINT #3,"choisissez": 
LOCATE #2,24,2: FRINT #2,CP; 


IP=i 
LOCATE CP,2%IF 
PEN i0: PRINT "+"; 
GOSUE 7000 
IF ANUL=i THEN 5160 
FR(IF)=CL 
LOCATE CP,2+1P 
PEN CL-1: PRINT P$f; 
60TO 5210 


FOR K=i TO IP 
LOCATE CF,2xK: PRINT “ "à 
NEXT K 

IF=0 


IF=IF+is ÎF IFSENF THEN 5070 
RETURN 
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5230 

7990 ‘------------ SP ENTREE D'UNE COULEUR ---------------- 
7910 

7026 ANUL=0 

7030 PEN 10: LOCATE ii+CLl,24 

7040 PRINT CHR£(94); 

7950 R$=INKEY#: IF R$=""THEN 7050 

TOEO R=ASC(R#) 

7070 LOCATE 11+CL,24: PRINT " “: 

TOEO CL=CL-(R=242)#(CL>1)+(R=243)#(CL<NC) 

76090 IF R<>32 AND R<)127 THEN 7030 

7160 IF R=127 THEN ANUL=I 

7110 RETURN 

7126 

E09Q ‘------------ SP INITIALISATION PARTIE ------------------ 
6010 ‘ 

8920 PAPER 9: CLS 

8930 T$="MASTERMIND" 

8940 LOCATE 6,6 

8050 FOR I=i TO LENIT#) 

8060 PEN I MOD 9: PRINT MID£(T#,1,1); 

8070 NEXT I 

BO80 ‘ 

8090 LOCATE 2,14: PRINT "combien de"; 

6100 LOCATE 2,16: PRINT "positions (2-6)"; 

8110 R3=INKEVS#: IF Rt="" THEN 8110 

8120 NF=VAL(R#): IF NF<£2 OR NF>6 THEN 6110 

8150 PRINT NP; 

8140 ‘ 

8150 LOCATE 2,19: PRINT "combien de‘; 

Bt60 LOCATE 2,2{: FRINT "couleurs (2-9); 

B170 R$=INKEYS: IF R$="" THEN 8170 

8180 NC=VAL(R#E): iF NC{2 OR NC>9 THEN 8170 

8190 PRINT NC; 

68200 ‘ 

6210 PAPER S:CLS 

8220 WINDOW #1,1,5,27,25: PAPER #1,1i: PEN #1,12: CLS #1 

B2:10 WINDOW #2,4,10,22,25: FAFER #2,13: FEN #2,14: CLS #2 
6240 WINDOW #3,11,20,21,22: PEN #5,19: PAPER #5,9: CLGOH3 

6250 ‘ 

8260 LOCATE #1,1,2 

8270 LOCATE #1,5,2: PRINT #1,"F": 
8280 LOCATE #1,1,4: PRINT #1,NC; 
8290 LOCATE #1,3,4: PRINT #1,"C"; 


PRINT #1,NF: 


8306 
8z10 
8320 
EIZC 
8354û 
8:50 
856û 
Ex70 
6580 
6:90 
8400 
8410 
64290 
8430 
9000 
9010 
9020 
3020 
9040 
9050 
5060 
9079 
9080 
9060 
9190 
g110 
9120 
9150 
9140 
9150 
9160 
G170 
9180 
9196 
J200 
9210 


LOCATE #2,7,1: 
LOCATE #2,2,3: 
LOCATE #2,3,4: 
FOR I=1 TO NC 
LOCATE 11+1,23 


PRINT #2,"COUP"; 
FRINT #2,"MSCORE"; 
PRINT #2,MS(NP, NC): 


PEN I-i: PRINT F$; 
NEXT I 
FOR I=i TO NP 
TIIH=INT(RND(L)4NC+1) 
NEXT I 
RETURN 
ÉPPPEEEEEEEE SP INITIALISATION DU JEU -- 
MODE 0 
CE=0: Bñ=0: CEi=id: CS1=2: CE2=16: CS2=1 
DIM TI(é), PR(6), TFlé), MS(6,9) 
CL=i: NX=20: Th=600 
SYMEOL AFTER 160 


SYMEOL 160, 
SYMEOL 161, 
SYMEOL 167, 


24,60,126,126,126,126,60,24 
0,24,36,66,66,36,24,0 
0,24,60,126,126,60,24,0 


FS=CHR# (160): PC$=CHRS (161): PP#=CHR# (162) 


DATA 4,9,6,7,8,9,15,16,21 
FOR I=0 TO & 


READ CO: INK I,C0 


NEXT I 


INF 


CR 11,CE1: 
14,002: 


INK 9,CE: INK i0 
k INK 15,CD 


INK 13,CE2: IN 
BEGRDER ER 
RETURN 


INK 12,CS1 


3. Si vous souhaitez personnaliser ce programme 


< Pour modifier la couleur des pions 


Remplacez les 9 nombres de l'instruction 9140 par neuf valeurs de votre choix, 
en veillant à ce qu'elles soient toutes différentes. 
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4. Description du programme 
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a) Techniques employées, décrites en annexe 


— Hasard. 


b) Le programme principal (100-260) 

120 appelle le sous-programme d'initialisation du jeu. 

130-250 correspondent au déroulement d'une partie. Elles sont répétées jusqu'à 
ce que vous précisiez que vous ne souhaitez plus rejouer : 
130 appelle le sous-programme d'initialisation d’une partie. 


140 :initialise le numéro du coup et les coordonnées d'affichage d'une 
combinaison. 


160-180 sont répétées jusqu'à ce que vous ayez gagné ou que le nombre de 
coups joués atteigne la limite 20 : 


160 appelle les sous-programmes de lecture et d'analyse de la combinaison 
proposée. 


170 incrémente le compteur de coups. 
200 appelle suivant le cas, l’un des sous-programmes ‘‘gagné'’” ou ‘‘perdu””. 
210-240 vous demandent si vous voulez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9210) 
9030 détermine les différentes couleurs. 


9050-9060 réservent les différents tableaux, fixent la position initiale de la flè- 
che, le nombre maximum de coups, le temps d'attente maximum entre l'affi- 
chage de deux petits pions. 


9080-9120 fabriquent les caractères graphiques (pion, petit pion plein, petit pion 
cerclé). 


9140-9200 fixent les différentes couleurs. 


d) Le sous-programme d'initialisation d'une partie (8000-8430) 


8020-8070 affichent le titre ‘’'MASTERMIND"’’ en utilisant les neuf couleurs de 
la palette. 


8090-8130 vous font choisir le nombre de positions. 


8140-8190 vous font choisir le nombre de couleurs. 


8200-8240 effacent l'écran et fixent les positions des 3 ‘’fenêtres'” et leurs 
couleurs. 


8250-8290 rappellent, en bas à gauche, le nombre de positions et le nombre de 
couleurs. 


8300-8320 affichent les différents ‘‘titres’’ et le meilleur score. 

8330-8370 affichent la ‘‘’palette’’ des couleurs. 

8380-8410 tirent au hasard la combinaison à deviner. Notez que chaque couleur 
de la palette est représentée par un entier compris entre 1 et 9. 

e) Le sous-programme de lecture de la combinaison proposée (5000-5220) 

5020-5040 affichent le message ‘‘faites votre choix'’ et le numéro du coup. 

5060 initialise le numéro de position d’un pion, dans la proposition. 


5070-5210 sont répétées jusqu'à ce que toutes les positions aient reçu une 
couleur : 


5070-5080 affichent une croix à l'emplacement du prochain pion. 


5090 appelle le sous-programme de choix d'une couleur dans la palette 
proposée. 


5100 examine si une demande d’annulation a été formulée. 


5110-5130 mémorisent la couleur proposée dans le tableau PR et affichent le 
pion correspondant. 


5160-5190 exécutées en cas d'annulation, ces instructions effacent les pions 
déjà affichés (pour ce coup) et remettent à zéro le numéro de position. 


5210 passe, s'il y a lieu, à la position suivante. 


f) Le sous-programme de choix d'une couleur (7000-7110) 
7020 initialise l'indicateur d'annulation. 


7030-7090 correspondent au déplacement de la flèche de sélection. Elles sont 
répétées jusqu'à ce que vous frappiez, soit la barre d'espace, soit la touche 
"ESC" : 


7030-7040 affichent la flèche dans sa position courante. 
7050 attend que vous frappiez une touche. 

7060-7080 déterminent la nouvelle position de la flèche. 
7090 examine si la touche frappée est ‘‘’espace'’ ou ‘'ESC'. 
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7100 examine si une annulation a été demandée. 


g) Le sous-programme d'analyse de la combinaison proposée (4000-4370) 


4020 recopie, dans le tableau de travail TP, la combinaison tirée par l'ordinateur. 
Cela permet d'effectuer certaines modifications dans TP {lors de l'analyse de 
la proposition) sans altérer le tableau TI. 


4040-4070 comptent le nombre (PX) de couleurs bien placées. 


4090-4140 comptent le nombre (CX) de couleurs présentes dans la combinai- 
son cachée, mais mal placées. Notez bien qu'il a fallu éviter de prendre en con- 
sidération les couleurs déjà comptées dans PX. 


4160-4230 affichent en musique, s'il y a lieu, un nombre de petits pions blancs 
égal au nombre de couleurs à leur place. 


4250-4310 affichent en musique, s’il y a lieu, un nombre de pions cerclés égal au 
nombre de bonnes couleurs mal placées. 


4330-4360 émettent un ‘’zap'' si votre proposition ne comporte aucune bonne 
couleur. 

h) Le sous-programme gagné (2000-2080) 

2020-2040 émettent quelques sons aléatoires. 

2050-2060 affichent ‘GAGNÉ’ et le nombre de coups. 


2070 actualise le meilleur score s'il y a lieu. 


i) Le sous-programme perdu (3000-3100) 
3020 émet un son approprié. 

3030 affiche ‘PERDU’. 

3040-3090 affichent la ‘’bonne'’ combinaison. 


5. Liste des variables 
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CE Couleur de fond de la partie de l'écran où s'affichent vos 
propositions. 

BR Couleur du tour de l'écran. 

CE1 Couleur de fond de la partie gauche inférieure où sont récapitulés 


le nombre de positions et le nombre de couleurs (fenêtre 1). 


CE2 


Ccs1 
CS2 
CD 
CR 
NX 
TM 


TI(6) 
PR(6) 
TP(6) 
MS(6,9) 
CL 

P$ 

PPS 


PCS 


NP 
NC 
CP 


ANUL 


CX 
PXx 
YR 


Couleur de fond de la partie inférieure où sont affichés le numéro 
du coup et le meilleur score (fenêtre 2). 


Couleur utilisée pour l'affichage dans la fenêtre 1. 
Couleur utilisée pour l'affichage dans la fenêtre 2. 
Couleur utilisée pour l'affichage des ‘’messages’” (en fenêtre 3). 


‘ 


Couleurs des ‘petits pions”. 
Nombre maximum de coups. 


Temps d'attente maximum utilisé lors de la réponse du programme 
à une proposition. 


Tableau contenant la combinaison tirée par le programme. 
Tableau contenant la proposition du joueur. 

Tableau ‘‘'de travail’ employé dans l'analyse de la proposition. 
Tableau des meilleurs scores. 

Position de la flèche de sélection des couleurs (de 1 à 9). 
Caractère graphique représentant un pion. 


Caractère graphique représentant un petit pion plein (‘’bonne 
couleur’'). 


Caractère graphique représentant un petit pion cerclé (‘’bonne 
position'’). 


Nombre de positions choisies pour la partie en cours. 
Nombre de couleurs choisies pour la partie en cours. 
Numéro du coup qui est en train de se jouer. 
Position d’un pion dans la proposition du joueur. 


Indicateur d'annulation de la proposition en cours : 
0 : pas d'annulation 
1 : annulation demandée. 


Nombre de bonnes couleurs, mal placées. 
Nombre de bonnes couleurs à leur place. 


Ordonnée d'un petit pion. 


Variables auxiliaires 


| T$ 


A R K 
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11 
Gobe mouches 


1. Le jeu 
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Imaginez que vous soyez une petite araignée obligée de chasser les mouches pour 
se nourrir. 


Heureusement celles-ci pullulent dans votre environnement et vous n'avez que 
l'embarras du choix. Toutefois vous ne pouvez vous déplacez que le long d’un 
fil (de votre toile). 


Vous vous déplacez le long du haut de l'écran grâce aux touches fléchées : 


14 “1 


+—" et 


“1 , 


’ 
— 


vous font avancer à vitesse lente dans la direction indiquée. 


HS AA Le DA vous font avancer, dans les mêmes directions, à une vitesse tri- 
ple de la précédente. 





Pour avaler une mouche, il vous suffit de l'intercepter dans son vol (qui se déroule 
toujours verticalement). Chaque mouche rapporte un nombre de points qui dépend 
de sa taille et de sa couleur. Les mouches roses procurent de 2 points (pour les 
plus petites) à 8 points (pour les plus grosses). Les mouches jaunes en procurent 
deux fois plus (de 4 à 16) et les bleues trois fois plus (de 6 à 24 l). 


La partie s'achève au bout d'un temps déterminé à l'avance. Bonne chance et... 
bon appétit. 


2. Le programme 


100 CHAEHMERERREEEEXEX GOBE MOUCHES XXXXX XX XX XXE XXE NUE UE EEE REX SX 
119 ‘ 

120 DEF FNSC(K,Y) = TEST(16#x(X-1)+9,16%(25-V)+11) 

116 GOSUE 9000 

140 GOSUE 8000 

150 FOR Tel TO TK 

16ù IF FNSC(X,4)220 THEN KXM=kX: GOSUE 2000 

Ô IF FNSC(X+1,4)<30 THEN XM=X+i: GOSUR 2000 

g  XMN=X-CINKEY(B)=0)#(X32)+(INKEY(1)=0)#(X<39) 

î XN=XN-T4{CINKEY(O)=0)#(X>4)-(CINKEY(21=0)#(X<37))} 


Es re 
Si Os 


Fi 


Î 
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EC IF XNE>X THEN LOCATE #2,X%,2: PRINT #2,F#: 
Eio X=XhN 
220 LOCATE #2,X,2: FRINT #2,A$; 
Ô X{=2+RND(1L)#28: X2=2+RND(L)4+56 
240 NI=I+INT(RND(I)#6): N2=1+INT(RND(i)+#8) 
290 PNI=I+INT(RND({)#3): FN2={+INT(RND(1)+#3) 
2&ù PEN #23,PNiz: LOCATE #S5,K1,22: PRINT #5,CHR# (10); M£CN1}): 
270 FEN #5,PN2: LOCATE #3,X2,22: FRINT #3,M#(N2): 
280 NEXT T 
; SGSUE 700û 
RÈ< 


UNS THEN 140 





2000 ------------ SF MOUCHE GOBEE --------------------- 
2910 

2020 FOR H=150 T0 10 STEP -5: SOUND 1,H,i: NEXT H 

2070 XG=16#(XM-1): YG=14421 

2040 K=0 

2050 FOR I=S5 TO 5: FOR J=4 TO & 

2060 K=K+TEST(XG+241,YG+2%J) 

2070 NEXT Ji: NEXT I 

2060 SC=SC+K 

2090 LOCATE #1,8,1: PRINT #1,SC; 

2100 RETURN 

2110 ‘ 

7000 ‘------------ SP FIN DE PARTIE ---------------------- 
7010 

7020 SOUND 1,478,10: SOUND 1,379,10 

7030 SQOUND i,319,{0: SOUND 1,259,10 

7040 IF SC:MS THEN MG=6C 

7050 FOR KH=1i TO 1000: NEXT K 

70640 CLS #3 

7070 LOCATE #23,5,15 

7060 WHILE INKEY#<2"": WEND 

7050 FRINT #37,'"voulez vous rejouer"; 

7100 R$=INKEVS: IF R$="" THEN 7190 

7110 RETURN 

71130 * 

DOQO ASSET SP INITIALIGSATION PARTIE ---------------- 
8010 ‘ 

8020 CLS #i: 


C 2: CLS #S 
B930 LOCATE #1 

T 

# 


# 
lt PRINT #i,"SCORE © M-GCDRE"; ME 
9 STEP 2 


sAÿ2t PRINT #2,F#: 


8940 FOR X=i 
B0SG  LOCATE 
6060 NEXT KX 





8070 X=i3 

8080 LOCATE #2, K,2: FRINT #Z,A$: 

6090 £C=0 

Bi0û RETURN 

B!10 ‘ 

9000 ‘----------- SP INITIALISATION DU JEU ------------------ 
3010 

6020 CF=0: ER=Q: CA=24: CS=1é6: Ci=20 

SOZC TM=300: MS=0 

3040 ‘ 

5050 SYMBOL AFTER 160 

6060 SYMECL {é1, 0,0,85,8,0,0,0,0 

9070 SYMBOL 142, 0,40,8,28,6,20,0,0 

5966 SYMEOL 183, 34. areu B,20,34 ,Ÿ 

6090 SYMEGL. 164, 354,3 # 

5100 SYMEOL 185, Ter LUE , 
Siig SYMBOL 166, bb, 36,94 126,24 ,24 36, 6& 
9120 SYMEOL 167, 65,3:4,26,127,28,20,56,65 
9130 SYMEOL 168, 155,90,60,60,255,60,96,129 
G140 DIM Mf(8) 

9150 FOR I=i T0 8: M£(I)=CHR#(160+I): NEXT I 
Giég 

9170 SYMBOL 170, 16,136,68,51,7,15,16,225 
7160 SYMEOL 171, 6,17,34, 125,225,240,8,7 
95190 SYMBOL 172, 0,0,0,255,0,0,0,0 

6200 A =CHRS (170) 4CHRE (171) 

9210 FS=CHRS(172)+CHR$ (172) 

5220 ‘ 

9250 MODE 1: CLS 

9240 INK O,CF: INK 1,08: INK 2,CAt: INK 3,C5 
9250 WINDOW #1,1,40,1,1: FAFER #1,0: FEN #1, 
9260 WINDON #2,1,40,2,3: FAFER #2,0: PEN 0 
S270 WINDOW #5,1,40,4,20!: FAPER #3,0 

9260 BORDER ER 

5290 RETURN 


3. Si vous souhaïtez personnaliser ce programme 


> Pour modifier la couleur de l’araignée et de son fil 


Remplacez, en 9020, la valeur 24 (dans CA = 24) par un nombre de votre choix. 
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> Pour modifier la durée d’une partie 
Remplacez, en 9030, la valeur 300 (dans TM = 300) par un nombre de votre 
choix. 
> Pour que toutes les mouches rapportent le même nombre de points 
Remplacez la ligne 2040 par : 

2040 K=1 
et supprimez les lignes 2050 à 2070 


> Pour que toutes les mouches soient de la même couleur 
Remplacez la ligne 250 par : 
250 PN1=... : PN2=... 
où … désigne un nombre de votre choix compris entre 1 et 3. Par exemple : 


260 C1=3:C2-3 
produira des mouches bleues. 


REMARQUE : notez qu'alors, toutes les mouches rapporteront un nombre de points 
ne dépendant que de leur taille. 


4. Description du programme 
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a) Techniques employées, décrites en annexe 
— Hasard, 

— Animation, 

— Lecture rapide du clavier, 


— Examen du contenu de l'écran. 


b) Le programme principal (100-320) 


120 définit une fonction permettant de connaître la couleur (numéro d'encrier) 
d'un point graphique de l'emplacement texte de coordonnées X,Y. 


130 appelle le sous-programme d'initialisation du jeu. 


140-300 correspondent au déroulement d’une partie. Elles sont répétées jusqu'à ce 
que vous précisiez que vous ne souhaitez plus rejouer : 


140 appelle le sous-programme d'initialisation d'une partie. 
150 et 280 répètent 300 fois les instructions 160 à 280 : 


160-170 examinent si une mouche se trouve en contact avec l'araignée et, 
le cas échéant, appellent le sous-programme ‘’mouche gobée'’ (2000). 


180-190 déterminent la nouvelle position de l'araignée. 
200-220 déplacent l'araignée sur son fil. 


230-270 déterminent au hasard les positions, les formes et les couleurs de 
deux nouvelles mouches et les dessinent. 


290 appelle le sous-programme de fin de partie. 


300 examine si vous souhaitez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9290) 
9020 détermine les couleurs. 
9030 détermine la durée d'une partie et initialise le meilleur score. 


9040-9150 fabriquent les caractères graphiques employés pour représenter 8 
sortes de mouches. 


9170-9210 fabriquent les caractères graphiques utilisés pour représenter l'arai- 
gnée et son fil. 


9230-9280 définissent les 3 fenêtres et en fixent les couleurs. 


d) Le sous-programme d'initialisation d'une partie (8000-8100) 
8020-8030 effacent l'écran et affichent le meilleur score. 
8040-8060 dessinent le fil. 

8070 fixe la position initiale de l'araignée. 

8080 dessine l’araignée. 


8090 initialise le score. 


e) Le sous-programme ‘mouche gobée'’ (2000-2100) 
2020 émet un son approprié. 
2040-2070 déterminent le nombre de points correspondant à la mouche gobée. 


2080-2090 actualisent le score et l’affichent. 
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f) Le sous-programme de fin de partie (7000-7110) 


7020-7030 font retentir un petit accord. 


7040 actualise le meilleur score. 


7050-7060 attendent un instant avant d'effacer l'écran. 


7070-7100 vous demandent si vous voulez rejouer. 


5. Liste des variables 
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CF 
BR 
CA 
CS 
C3 


TM 
MS 
A$ 
F$ 


M$ (8) 

X 

SC 

T 

XN 
X1,X2 
PN1,PN2 
N1,N2 


Couleur de fond. 

Couleur du tour de l'écran. 
Couleur de l’araignée et de son fil. 
Couleur d'affichage des scores. 


Troisième couleur servant à représenter les mouches (les deux 
autres étant celle de l’araignée et celle des scores). 


Durée d'une partie. 
Meilleur score. 
Chaîne de deux caractères graphiques représentant l'araignée. 


Chaîne de deux caractères graphiques utilisés pour représenter 
le fil. 


Tableau des caractères graphiques représentant les 8 mouches. 
Position de l'araignée sur son fil. 

Score. , 

Compteur de temps (tours de boucle). 

Nouvelle position de l'araignée sur son fil. 

Positions des deux dernières mouches (tirées au hasard). 
Couleurs des deux dernières mouches (tirées au hasard). 


Numéro de la « forme » des deux dernières mouches. 


Variables auxiliaires 


R$ A 


12 
Karting 


1. Le jeu 


La piste est là, devant vos yeux, avec ses bottes de paille qui en délimitent le 
tracé. Votre bolide ne tarde pas à se présenter. Il vous suffit d'y monter et 
d'essayer de le conduire sur le plus grand nombre possible de kilomètres et aussi 
vite que vous le pouvez. 


Le bolide apparaît en haut à gauche de l'écran. Le programme vous demande de 
signaler que vous êtes prêt en tapant sur une touche quelconque. Votre voiture 
se met alors en marche, à petite vitesse. A partir de cet instant, Vous ne pourrez 
plus l’arrêter et la partie se terminera inexorablement.. dans le décor. 


Vous dirigez votre bolide à l’aide des quatre touches fléchées (ou, le cas échéant, 
avec une poignée de jeu). Vous accélérez à l’aide de la barre d'espace et vous 
freinez avec la touche ‘’TAB”’. Le bruit du moteur vous renseignera sur votre 
vitesse. 
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sn... 
& 





A la fin de la partie (c'est-à-dire quand vous avez quitté la piste), le programme 
vous indique la distance parcourue et votre temps de parcours. Votre score est 
alors calculé en fonction de ces deux éléments (il est proportionnel à la distance 
et à la vitesse moyenne). Vous pouvez le comparer avec le meilleur score déjà 
réalisé. 


2. Le programme 
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LOU CKRKEXEKLEERELEXEREXXXEXX KARTING XKA4KKEXEKEREXEXEREEEEEXEEX 
to © * 

120 DEF FNSC(X,Y) = TEST(I6#(X-1)+9,16%(25-Y)+0) 

130 GOSUE 9000 

140 GOSUB 8000 

150  R$=INKEY#: IF R£<o"" THEN GOSUB 2000 - 

160  XN=XH+(DN=3)-(DN=4): YN=Y+(DN=1)-(DN=2) 

170  SOUND 1,200! 


189 Ir FNSC(XN,YN):>0 THEN GOSUR 5006: GOTO 260 
iSû LOCATE X,Y: FRINT V£(DN); 

200 K=XN: V=YN: Di=DN 

210 EM=EM+ir TET+DT 


220 
TG 
Z4û 
250 
280 
270 
z8û 
z200û 
2019 
2920 
207 
2040 
205û 
206" 
3065 
3015 
3029 
3070 
3040 
3050 
S06û 
2070 
308 
1090 
3100 
3110 
3120 
3158 
3140 
3150 
3160 
3170 
3160 
3190 
3200 
3210 
3220 
9000 
o010 
90260 
50360 
5046 
2056 


FOR Ezi F0 Aî3 NEXÂT KE 
EOUNE :,£00,1 

GOTG 150 
LOCATE X,Y: FRINT " ®; 
IF RÉ<oUN" THEN 140 


END 


DN=ASC(R$)-239 


IF DN=-230 OR DN=-207 THEN GOSUE 5000 
IF DN<I OR DN>4 THEN DN=DL 

RETURN 

Pme SF SORTIE DE PISTE ----------""" 


FOR H=i0 TO 300 STEP 10: SOUND 1,H,1: NEXT H 
SOUND 1,0,2 

FOR I=1 TO 6 

SOUND on SOUND 1,319,18 


SOUND 1,253,18: SOUND 1,0,25 
NEXT I 
LOCATE #1,3,1: PRINT #1,"KM “s KM 
LOCATE #1,302: PRINT #1,"TEMPS vi T; 
SC=INT(EM#KM/T) 
LOCATE #1,3,2: PRINT #1,"SCORE "; GC; 
LOCATE #1,16,2: PRINT #i,"M-SCORE"; MS: 
SC 


IF SCÈMS THEN M£E= 


FOR K=ji TO 200: NEXT K 

LOCATE X,Y: FRINT " "; 

WHILE INKEV#<»"": WEND 

LOCATE #1,20,1: PRINT #{,"rejouez vous(O/N)"; 
R$S=INKEVS: IF R$="" THEN 3200 

RETURN 


DT=DT-(DN=-207)x(DT>0)+(DN=-230)*#(DT<5) 
AT=EY+#(DT-1) 
RETURN 
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8000 
8010 
6520 
EUZO 
8940 
8950 
B960 
8a70 
8060 
6990 
&100 
6110 
Eiz0 
5000 
S010 
9020 
SOZ0 
9040 
9550 
9060 
9970 
9080 
6960 
9100 
SI10 
9120 
si50 


Si40 


Si90 


G{6é0 
5170 
GIEO 


9190 


gG200 
9210 
9220 
9250 
G240 

250 
GZ60 
3270 

260 
9290 
9:00 
9316 
S3Z0 
93550 


fe SF INITIALIGATION PARTIE ----------------- 


KM=0: T=G: DT=5: AT=KVX%DT 

X=3: Y=4: DN=4: DL=DN 

LOCATE X,Y: FRINT CHR#(162); 

CLS #1 

LOCATE #1,2,2 

PRINT #1, "pour commencer, tapez sur une touche"; 
RÈ=INKEYE#: IF R£&="" THEN 8080 

CLS #1 

SOUND 5,200,1 

RETURN 


ne SF INITIALISATION DU JEU -------------"--- 


CB=i: CF=éb: CF=24: CS=74: CV=é 


SYMBOL AFTER 160 
SYMEOL 160,0,0,60,60,60,60,0,0 
SYMBOL 161,0,0,99,255,255,99,0,0 
SYMBOL 162,0,0,198,255,255,198,0,0 
SYMBOL 162,60,60,24,24,24,60,60,24 
SYMEOL 164,24,60,60,24,24,24,60,60 
DIM V£(4) 

VE(1)=" VICHREI LI +CHRE(B)+CHRE(164) 
VE(2)=" "ECHRE (LC) +CHRÉ(B)+CHRE (163) 
VE (S)=CHRE(B)+CHRE(LEL)+" 

VE(4)=" "CHR (162) 

B$=CHR# (160) 


INK O,CF: INK 1,CB: INK 2,CV: INK 3,05 
CLS: FAPER 0: BORDER CE 
WINDOW #1,1,40,23,25: PAFER #1,1: PEN #1,0 


PEN i 
FOR I=i TO 22 
READ CHf 
FOR J=1 TO 49 
CF=MIDS(CHS,J,1i) 
IF CH<:" " THEN LOCATE J,I: FRINT Ef; 
NEXT J 
NEXT I 


FEN Z 
RETURN 


9340 
9:50 
G360 
9370 
5:80 
5390 
S40C 
S4i0 
S42û 
9450 
ÿ£4( 


456 


I] 


L 


Del 
+ 
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CT 4 RE + 4 


Da) 
TI E 
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3. Si vous souhaitez personnaliser ce programme 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA ) 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATÉ 
DATA 
DATA 


XKKXXKXXKRXXKEXXKXXXXARXKKXXXX XX 
XX XXXXX XAXXX 

* XXX X XX 

X X£ X 

x X X 

X XX à x KXKXAXXX X ‘XX 
x XXX x XAX X 

* XXK x XA x 

X X4 # * KAXXX 

X XX x X KXRXKXXXX 
XX K À XX 

XXX X XXX 

XAXX X XKXX 

XXXX X XKXKAXXXEXXEXXXXXX 
XKX AXXXKXXXAXKXXX 

XX XKXX XXX 

X XKXXX XXX 

X XXXX X XXX 

* XA XXXX 

X XXXX XXXX 

XX RXKXAX RXRXX 
XXRAXKRAXERXKEXXKAXAXXARXXEXXXX 


XXXXXKXXXKXX 
XXX 

XX 

X 


XXXXX 
X 


XXKXX 
XXX 


DC DE D >< D< >< 


X 
XXKXXX 
XXXXX 
XXXXX X 
XXX XXX 

XXXX 

XXXXX 

XXXXXX 
AXXXXXXXXX 


X 
X 
x 
X 
* 
X 
x 
X 
X 
X 
X 
X 


> Pour modifier la couleur de la piste (ici jaune) 


Remplacez, en 9020, la valeur 24 (dans CF = 24) par un nombre de votre choix, 
entre O et 26. 


> Pour modifier la couleur des ‘‘hbottes de paille’’ 


Remplacez, en 9020, la valeur 6 (dans CP = 6) par un nombre de votre choix, entre 
0 et 26. 


> Pour modifier le tracé de la piste 


Il vous suffit de modifier les instructions ‘’ DATA” des lignes 9350 à 9560 en 
tenant compte des remarques suivantes : 


° Chacune de ces 22 instructions représente une ligne de la piste. 
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e Chaque instruction contient une chaîne d'au maximum 40 caractères et for- 
mée uniquement de caractères ‘‘’espace’” et ‘‘’X'’. Les espaces matérialisent 
la piste tandis que ‘’X'’ correspond aux ‘‘bottes de paille”. 


e ll est absolument indispensable que la piste soit toujours bordée de ‘’X’'. En 
effet, pour obtenir la vitesse maximum, le programme ne teste pas les ‘’débor- 
dements'” d'écran ; il se contente de vérifier s’il y a ou non collision avec une 
botte de paille. Dans ces conditions, l'absence de ‘’X’’ en bord de l'écran pour- 
rait entraîner un mauvais fonctionnement du programme. 


> Si le jeu vous paraît trop rapide ou trop lent 


Vous diminuerez les différentes vitesses (à l'exception de la cinquième), en rem- 
plaçant, en 9040, la valeur 50 par un nombre plus grand. Notez que si vous pla- 
cez là une valeur inférieure à 50, le jeu deviendra plus rapide. 


4. Description du programme 
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a) Techniques employées, décrites en annexe 
— Hasard, 

— Animation, 

— Lecture du clavier, 


— Examen du contenu de l'écran. 


b) Le programme principal (100-270) 


120 définit une fonction permettant de connaître le numéro d'encre d'un point 
graphique de l'emplacement texte de coordonnées X,Y. 


130 appelle le sous-programme d'initialisation du jeu. 

140-260 correspondent au déroulement d'une partie. Elles sont répétées jusqu'à ce 
que vous précisiez que vous ne souhaitez plus rejouer : 
140 appelle le sous-programme d'initialisation d'une partie. 
150-240 sont répétées jusqu'à ce que la voiture quitte la piste : 


150 appelle le sous-programme de ‘’changement'’’ si une touche du clavier 
a été pressée. Celui-ci gère à la fois le changement de vitesse et le change- 
ment de direction. 


160 détermine la nouvelle position de la voiture. 
170 émet un son. 


180 examine si la voiture sort de la piste ; dans ce cas le sous-programme de 
sortie de piste est appelé et la partie est interrompue. 


190-200 déplacent la voiture. Notez que la chaîne VS (DN) contient à la fois 
le caractère d'effacement de la voiture, les déplacements de curseur et la 
voiture dans sa nouvelle position. 


210 actualise le temps et le kilométrage. 
220 réalise une attente fonction de la vitesse. 
230 émet un son. 


250 efface la voiture (cas de fin de partie). 


260 examine si vous voulez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9550) 
9020 détermine les couleurs. 

9030 initialise le meilleur score. 

9040 fixe le coefficient employé dans les ‘‘boucles d'attente’. 


9070-9170 déterminent les caractères graphiques représentant les bottes de paille 
et la voiture dans chacune des quatre directions de déplacement. 


9190-9210 définissent la fenêtre numéro 1 et fixent les différentes couleurs. 


9230-9300 dessinent la piste en utilisant les instructions DATA des lignes 
9350-9560. Notez que chaque caractère ‘’X'’ correspond à une ‘‘’botte de 
paille’”. 


d) Le sous-programme dl'initialisation d'une partie (8000-8110) 


8020 initialise les compteurs ‘’temps'’’ et ‘’kilomètres’’ et fixe la valeur initiale 
du temps d'attente (conditionnant la vitesse de la voiture). 


8030 fixe la position initiale de la voiture et sa direction de déplacement. 
8040 dessine la voiture dans sa position initiale. 
8050 efface la partie inférieure de l'écran. 


8060-8100 attendent que vous tapiez sur une touche. 


e) Le sous-programme de changement de direction (2000-2050) 


2020-2030 appellent, s'il y a lieu, le sous-programme de changement de vitesse. 
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2040 vérifie que la touche pressée est bien l’une des quatre touches fléchées et, 
dans ce cas, actualise la direction de déplacement de la voiture. 
f) Le sous-programme de changement de vitesse (5000-5030) 


Il calcule le nouveau temps d'attente. 


g) Le sous-programme de sortie de piste (3000-3210) 
3020-3030 émettent un son approprié: 

3040-3070 font retentir un avertisseur d’ambulance. 

3090-3100 affichent le nombre de kilomètres parcourus et le temps. 


3110-3140 calculent le score, l’affichent en même temps que le nouveau score 
et actualisent ce dernier. 


3160-3200 après une légère attente, effacent la voiture et vous demandent si 
vous souhaitez rejouer. 


5. Liste des variables 
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CB Couleur de la bordure de l'écran et du fond de la fenêtre 1. 

CP Couleur des ‘’bottes de paille”. 

CF Couleur de la piste et des scores. 

CV Couleur de la voiture. 

MS Meilleur score. 

KV Coefficient employé pour définir un temps d'attente (AT) en fonc- 
tion de la vitesse. 

BL$ Chaîne de 38 caractères ‘espace’ employée pour effacer des 
messages. 

B$ Caractère graphique représentant une ‘‘botte de paille’”. 

V$(4) Tableau des chaînes utilisées pour ‘‘effectuer’’ le déplacement de 


la voiture. Chaque chaîne contient à la fois un espace servant à 
effacer la voiture de son ancienne position, les déplacements de 
curseur et la voiture dans sa nouvelle position. 

e V$(1) correspond à la voiture dirigée vers le haut. 

e V$(2) correspond à la voiture dirigée vers le bas, 


KM 


DT 


AT 


X,Y 
DN 


DL 
XN,YN 
SC 


e V$(3) correspond à la voiture dirigée vers la gauche, 
e V5$(4) correspond à la voiture dirigée vers la droite. 


Kilomètres parcourus depuis le début de la partie. 
Temps écoulé depuis le début de la partie. 


Représente la vitesse de la voiture. (1 correspond à la vitesse la 
plus élevée, 5 à la vitesse la plus basse). 


Temps d'attente dépendant de la vitesse (il est proportionnel à 
la valeur de DT). 


Coordonnées de la voiture. 


Code du déplacement à venir de la voiture. 
FEU RENE Tor 


Code de l’ancien déplacement de la voiture. 
Coordonnées du prochain emplacement de la voiture. 


Score. 


Variables auxiliaires 


| J 
CH$ C$ 
R$ 
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13 
Tir aux ballons 


1. Le jeu 
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Venez pour un moment vous distraire à la fête foraine en montrant vos talents 
de tireur. Une myriade de ballons multicolores s'élève devant vos yeux. Crevez- 
en le plus possible avec votre sarbacane. 


La sarbacane apparaît sur le côté droit de l'écran et se déplace verticalement à 
l’aide des deux touches ‘’ { ‘’ et ‘’ | ‘’. Vous tirez une flèche en appuyant sur la 
barre d'espace. Tant qu'elle n’a pas traversé l'écran ou crevé un ballon, vous ne 
pouvez pas en tirer une nouvelle. 


Trois niveaux de jeu vous sont proposés : 
e Niveau 1: Tous les ballons rapportent le même nombre de points (10). 


e Niveau 2: Le nombre de points dépend de la couleur du ballon : 10 pour 
un jaune, 20 pour un bleu, 30 pour un rose. Ce nombre appa- 
raît sur la gauche du ballon. 








e Niveau 3: Les ballons deviennent capricieux : lorsqu'ils sont touchés pour 
la première fois, ils se contentent de diminuer de taille. Il vous 
faut les toucher une seconde fois pour les faire disparaître et 
marquer les points correspondants. 


La partie dure un temps déterminé à l'avance. Le programme affiche en perma- 
nence, en haut de l'écran, votre score et le meilleur score du niveau auquel vous 
jouez. 


2. Le programme 


100 CHRÉRAENAAEEREEX TIR AUX BALLONS #6 6 ON RO A NN 
16 | 

120 DEF FNEC(X,Y)I = TEST (16#(X-1)+7,16x(25-Y)-8) 

{120 GOSUE 6000 

t4a GOSUR 6000 

150 FOR T=i TO TM 

160 GOSUB 3000: GOSUB 4000: GOSUB 5000: GOSUB 5000 

170 GOSUE 2600: GOSUE 4600: GOSUB 3090 

180 NEXT I 

190 IF GSC>MS(NV) THEN HS (NV)=6C 
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20 
2i0 
229 
2360 
549 
250 
z6ÿ 
270 
280 
3000 
3010 
3020 





1084 
3060 
3190 
2110 


3120 


3130 
3146 
3450 
3160 
4000 
49010 
4850 
4070 
4040 
+050 
406 
40760 
3080 
4690 
4100 
5000 
2010 
5020 
5070 
5040 
9059 


5060 


FOR K={ TO 400: NEXT E 
LS #i 
WRILE INKEV#£)"": WEND 
LOCATE #i, 7,25 
FRINT #1, "voulez vous rejouer (C/N)7* 
RS=INKEVS: IF R$="" THEN 250 
JF R$£E"N" THEN 140 
END 


IF KXF=0 THEN RETURN 
IF FNSC(XF-1,YF){30 THEN 23070 
LOCATE #1, XF,YF: PRINT #i, " "5: XF=XF-2. 
IF XF{X1 THEN XF=0 ELSE LOCATE #1,XF,YF: PRINT #1,F$; 
RETURN 
SOUND i,476,2 
LOCATE #1, XF,YF: PRINT #1, “ "s 
LOCATE #i, XE-1,YF: C=TEST(I6#(XF-2)+3,16#(25-YF)-9) 
IF C<)0 AND NV=3 THEN PEN #1,C: PRINT#I,B24#::XF=0: RETURN 


SC=SC+IO4TEST(I6K(XF-2)+7,i0x(25-YF)-9) 


PRINT #1," "; 
LOCATE 20,1: FRINT SC; 

XF=0 

RETURN 

ee SP DEPLACEMENT SARBACANE ET TIR ----------- 


IF INKEYV(47)<50 OR XF430 THEN 4060 
XF=XS-2: YF=YS 
PEN #1,2: LOCATE #1,XF,VF: PRINT #1, F$; 
RETURN 
PEN #1,2: LOCATE #1, XS,YS: PRINT #1,B$: 
YS=YS+(INKEY(B)=0)#(YS€27)-(INKEY(1)=0)#(YS51) 
LOCATE #i, X5,VS: PRINT #i, S$; 
RETURN 


ee SP DEPLACEMENT BALLONS ---------"-"" 


IF RND(i)>ZB THEN 5070 
X=H(K): CE=H(K+1): K=K+2: IF KDNX THEN K=i 
IF NV=1 THEN PT=10 ELSE PT=10%CP 
PEN #1,CE: LOCATE #1,2,24: PRINT #1, PT; 
LOCATE #1, X,24: PRINT #1, Bif:; 


5670 
5080 
5060 
5100 
Siio 
5120 
oii6 
5140 
000 
6010 
8uzQ 
EO0IO 
B040 
6550 
8080 
ga70 
BOBG 
8290 
E100 
Biio 
6120 
si3G 
5146 
g150 
6i6t 
8170 
6180 
61970 
6300 
8210 
a220 
8006 
5010 
3020 
RU 
5046 
5956 
5560 
5078 
6080 
6090 
5100 
9116 
6120 


LOCATE #1, X5,YS: PRINT #1, Bf; 
IF XF£20 THEN LOCATE #1, KF,YF: PRINT #1, " "; 

LOCATE #1, 1,24: PRINT #1,CHR#(10) 

PEN #1,2: LOCATE #i, XS,YS: PRINT #1, S$; 

IF XF=0 THEN RETURN 

IF FNSC(XF,VF)€30 THEN XF=0 ELSE LOCATE#I,XF,YF:PRINT#I,F#; 
RETURN 


feeenennnnee SP INITIALISATION FARTIE == 


FEN #1,2: CLS #1 

LOCATE #1,9,15 

PRINT #1i, “niveau choisi (1 a S)": 
RE=INKEEY#: IF R£="" THEN 8050 
NV=VAL(CR#S): IF NVS1 OR NV>3 THEN 8050 
FRINT #i, NV: 


LOCATE #1, 12,24: FRINT #1, "“PATIENTEZ, SVP": 
FOR Kzi TO NX-{ STEF 2 
HUE =X1+Z#INT(RNDUI)x(X2-X1)7/2) 
CE=INTIAND(I)+5+11 
H(£rI)2CE 
NEXT k 


SC=0: KF=û: YS=15: Ki 


CLS #i 

LOCATE 3,1: PRINT "NIVEAU; NV; 
LOCATE 14,1: nul “SCORE 3 
LOCATE 27,1: PRINT “M-SCORE": HS (NV) ; 
RETURN 


CF=0: Fizijib: Chzïé: C5=7: BAR=0 
X1=6: X3=26 

XS=2:5: LS=é: Xr=0: B=0.2 
TM=i0: Nx=109 

DIM ME(3), HINX) 


SYMBOL AFTER 160 
SYMEOL 160,0,0,255,255,255,255,0,0 
SYMBOL 161,0,0,0,0,255,0,0,0 

SYMBOL 182,80,126,255,255,255,255,126,60 
SYMEOL 163,0,0,24,60,60,24,0,0 
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G130 SE="": FOR I=i TO LG: GSÉ=S#F+CHRE((60): NEXT I 


7146 B$="": FOR I=i TO LS: B$=B$+" ": NEXT I 
S1SO FE=CHRE(jEl): ElF=CHRE(162): R2H=CHRE(IE6Z) 
si6ûù ‘ 

SIZO INE O,CF: INR LCA: INK 2,05: INK 3,FS 


5160 WINDOW #1,1,40,2,25 
5190 PAFER 3: FEN i: EGRDER BR: CLS 
9200 FAFER #i,0: CLS #1! 

5210 RETURN 


3. Si vous souhaitez personnaliser ce programme 


> Pour modifier la durée d'une partie 


Remplacez, en 9050, la valeur 300 (dans TM = 300), par un nombre de votre 
choix. Par exemple, 600 conduira à des parties deux fois plus longues tandis que 
100 conduira à des parties trois fois plus courtes. 


> Pour que les ballons soient plus ou moins nombreux 


Remplacez, en 9040, la valeur 0.2 (dans ZB = 0.2) par un nombre compris entre 
O et 1 sachant que : 


0.2 correspond, en moyenne, à un ballon toutes les cinq lignes. 
0.5 à un ballon toutes les deux lignes. 
1 à un ballon sur chaque ligne. 
> Pour utiliser une poignée de jeu : 
Remplacez la ligne 4020 par : 
4020 D = JOY{(0] : IF (D AND 16}= O OR XF < > O THEN 4060 
et la ligne 4070 par : 
4070 YS = YS + (D=1) x (YS <23) - (D=2) « (YS >1) 


4. Description du programme 


a) Techniques employées, décrites en annexe 


— Hasard, 
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— Animation, 
— Lecture rapide du clavier, 


— Examen du contenu de l'écran. 


b) Le programme principal (100-270) 


120 définit une fonction permettant de connaître la couleur (numéro d’encrier) 
d'un point graphique de l'emplacement texte de coordonnées X,Y. 


130 appelle le sous-programme d'initialisation du jeu. 

140-260 correspondent au déroulement d’une partie. Elles sont répétées jusqu'à 
ce que vous précisiez que vous ne souhaitez plus rejouer : 
140 appelle le sous-programme d'initialisation d’une partie. 


150 et 180 répètent 300 fois les instructions 160 et 170 qui appellent 
les sous-programmes : 


— déplacement de la flèche (3000) 
— déplacement de l'ensemble des ballons (5000) 
— déplacement de la sarbacane (4000) 


190 actualise le score. 


200-250 après une brève attente, vous demandent si vous souhaitez rejouer. 
240 examine votre réponse. 


c) Le sous-programme d'initialisation du jeu (9000) 
9020 détermine les couleurs. 
9030 détermine le domaine dans lequel évoluent les ballons. 


9040-9050 fixent la position initiale de la sarbacane, sa longueur, la fréquence 
d'apparition des ballons, la durée de la partie. 


9080-9150 fabriquent les caractères graphiques représentant la sarbacane, la flè- 
che et les ballons. 


9170-9200 définissent la fenêtre 1 et fixent les couleurs. 


d) Le sous-programme d'initialisation d'une partie (8000-8210) 


8020-8070 vous font choisir votre niveau de jeu, en rejetant les réponses autres 
que 1, 2 ou 5. 


8090-8140 vous demandent de patienter et préparent un tableau de valeurs tirées 
au hasard qui serviront à déterminer la position et la couleur de chaque ballon. 
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(Cette façon de procéder permet de ‘’gagner’’ un petit peu de temps pendant 
le déroulement du jeu). 


8160 initialise le score, la position de la sarbacane. 


8170-8200 effacent l'écran et affichent le niveau, le score et le meilleur score. 


e) Le sous-programme de déplacement de la flèche (3000-3150) 
3020 examine si une flèche a été tirée. Si c'est le cas : 
3030 examine si la flèche peut être déplacée sans toucher un ballon : 


3040-3050 déplacent la flèche lorsque cela est possible en vérifiant qu'elle 
n'atteint pas le bord gauche. 

3070-3140 correspondent au cas où un ballon est touché : 
3070-3080 émettent un son approprié et effacent la flèche. 


3090-3100 examinent si le ballon est de taille normale ; dans ce cas, si l'on 
est en niveau 3, il est remplacé par un plus petit. 


3110-3140 incrémentent le score et l’affichent, effacent le ballon touché et 
mettent à zéro l'indicateur ‘‘flèche en cours’. 


f) Le sous-programme de déplacement de la sarbacane et de tir 
(4000-4090) 
4020 ‘lit’ le clavier. 


4030-4050 placent une flèche en position initiale si la barre d'espace a été pres- 
sée et qu'aucun tir n'est en cours. 


4060-4080 déplacent la sarbacane. 
g) Le sous-programme de déplacement de l’ensemble des ballons 
(5000-5130) 


5020-5060 gèrent l'apparition des nouveaux ballons : 
5020 décide de l’éventuelle apparition d'un nouveau ballon. 
5030 en détermine l’abscisse et la couleur. 
5040 détermine le nombre de points correspondants. 
5050-5060 affichent le nombre de points et le ballon. 
5070-5080 effacent la sarbacane et la flèche (si elle existe). 


5090 provoque le défilement d'écran (scroll). 


5100-5120 redessinent la sarbacane et, s'il y a lieu, la flèche. 


5. Liste des variables 


CF 
FS 
CA 
CS 
BR 
X1,X2 


XS,YS 
LS 
XF,YF 


ZB 
TM 
NX 


MS{(3) 
H{INX) 


S$ 
B$ 


F$ 
B1$ 
B2$ 
NV 
SC 


Couleur du fond de l'écran. 

Couleur de fond de la ligne supérieure où s'affichent les scores. 
Couleur d'affichage des scores. 

Couleur de la sarbacane et de la flèche. 

Couleur de la bordure de l'écran. 


Bornes de l'intervalle à l'intérieur duquel pourront se trouver les 
abscisses des ballons (ces valeurs doivent impérativement être 
paires). 


Coordonnées de l'extrémité gauche de la sarbacane. 
Longueur de la sarbacane. 


Coordonnées de la flèche. (Si XF = O, aucune flèche n'est pré- 
sente sur l'écran). 


Probabilité d'apparition d’un ballon sur chaque ligne. 
Durée d'une partie. 


Nombre de valeurs qui seront tirées au hasard avant le début d'une 
partie. 


Tableau des meilleurs scores relatifs à chaque niveau. 


Tableau destiné à contenir les valeurs tirées au hasard en début 
de partie. 


Chaîne de caractères graphiques représentant la sarbacane. 


Chaîne de caractères ‘’espace’’ utilisée pour l'effacement de la 
sarbacane. 


Caractère graphique représentant la flèche. 

Caractère graphique représentant un ballon de taille normale. 
Caractère graphique représentant un ballon ‘‘rétréci”. 
Niveau de jeu. 

Score. 

Pointeur dans le tableau H. 


Temps écoulé (compteur de boucle). 


X Abscisse d'un nouveau ballon. 


CB Couleur d'un nouveau ballon. 


Variables auxiliaires 
RS A C 
K 


14 
Mur de briques 


1. Le jeu 


C'est là un jeu très classique que vous avez certainement déjà rencontré. A l'inté- 
rieur d'un cadre se trouve un mur de briques. Une balle se promène sur l'écran, 
rebondissant sur le cadre ou sur une ‘‘raquette mobile’’. Elle rebondit également 
sur les briques mais en les détruisant du même coup. 


Par rapport aux versions habituelles de ce jeu, nous avons introduit une nouveauté : 
la raquette peut se déplacer à la fois horizontalement et verticalement (dans cer- 
taines limites). 


L'objectif est de détruire le maximum de briques dans un minimum de temps. Pou- 
voir rapprocher la raquette du mur vous fera donc gagner du temps et par suite 
améliorer votre score. 


Chaque balle ratée par la raquette est perdue. Vous disposez de six balles en tout. 
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BALLES 4  BRIRUES 





La raquette se déplace à l’aide des quatre touches fléchées ou, le cas échéant, 
de la poignée de jeu. 


Le programme affiche en permanence le nombre de balles restantes et le nombre 
de briques détruites. La partie s'achève, soit quand vous n'avez plus de balles, 
soit (ce qui est plus rare) quand le mur f été entièrement détruit. Le programme 
vous fait alors connaître votre score qui est calculé en fonction du nombre de 
briques détruites et du temps mis pour y parvenir. En même temps, vous pourrez 
comparer votre résultat avec le meilleur score déjà réalisé. 


2. Le programme 
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JO HAKEKEERAXEXERXAREEEXX MUR DE BRIQUES xxx xxx EX XXE EE 
110 

120 DEF FNSCCX,Y) = TEST ({6x(iX-1)+1,16x(25-Y)+15) 

1:10 GOSUE %000 

140 GÜSUÜE 8000: GOSUE 7060 

155%  GOSUE 4000: GOSUE 5000: GOSUE 4000: T=T+1 

160 IF NDENE AND NC>0 THEN 150 

{170  GOSUF 6500 

180 IF R££:"N" THEN 140 

190 END 


200 


4090 
4010 
49:0 
4029 
404i 
2050 
4060 
4070 
4980 
4090 
4100 
J0GC 
9010 
5020 
9020 
5040 
505 

5060 
5070 
9060 
50930 
CL) 
69i0 
6020 
&9270 
6040 
6050 
6060 
6070 
6980 
6090 
6i00 
6iid 
&120 
6150 
&140 
b150 
6160 
&i7û 
&160 
6i9û 
68200 


Pen GF DEPLACEMENT BALLE -------------""-"--"-- 


NSC(X,Y+DY): C2=FNSC(X+DX,V) 
ASC (XYDE, Y+iY) 

‘50 OR C2€50 OR C3<30 THEN GOSUB 6000: RETURN 
Ye FPRIAT "M" 

jX: YV=V+DY 

YEYR THEN LOCATE X,Y: FRINT BA$:: RETURN. 


I + 


= O0 u n 


+ 

C1 — 
mm 
>< 
el 


3 nu ve PO 4 : 
[en] 


nan 
M Co 

m1 Am Tin 
(es 


RG=INKEV(8): RD=INÉEY (1): RH=INKEV(O): RB=INKEY(2) 
IF RGKRD4RH4&RB<2)0 THEN RETURN 

LOCATE XR,YR: PRINT BF; 
XR=XR+2X((RD=O)#+CKREXM-1)-(RG=0O)#(XR>X1+1)) 
YR=YR+(RE=O0)# (YRSR2) + (RH=O) # (YRIRI)K(YREDY+1) 
LOCATE XR,YR: PRINT RAF; 

RETURN 


SOUND 1,478,6 
IF Ci=0 THEN 6090 

IF Ci<>3 THEN 6060 

LOCATE X,Y+DY: PRINT " ";: GOSUB 6800 
DY=-DY 

RETURN 


IF C2=0 THEN 6155 


IF CZ<}3 THEN 6120 
LOCATE X+DX,Y: FRINT " ";: GOSUB 6800 
DXk=-DX 
RETURN 
IF CS<o3 THEN 6i70 
LOCATE X+DX,Y+DY: FRINT “ ";: GOSUE 6600 
DX=-DX: DY=-DY 
IF RND(1)20,75 THEN DX=-DX 
RETURN 
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8500 
ë5si0 
6520 
8550 





NC=NC-] 
LOCATE #1,12,1: 


PRINT #i, NC; 


6540 FOR H=20 TG 306 STEF 5: SOUND {,H,1: NEXT H 
6550 FOR K=i TG S00: NEXT KE 

ESéD IF NC:0 TREN GOSÜE 7000 

6579 RETURN 

£9E9 

BCD Gr BRIQUE DETRUITE --------------------- 
6EiC 

£e2ÿ NE=ND+i 

É8ÈS LOCATE #1, 26,1: FRINT #1, ND; 

£84S RETURN 

6859 ‘ 

FO0Û = SP PLACEMENT HASARD BALLE ---------------- 
TRUE 

7020 X=Xi+i+INT(RND(I)x(X2-X1-1)) 

7010 Y=y4+2 

7046 LOCATE X,Y: FRINT BA$:; 

7050 IF RND(I):9,5 THEN DX=! ELSE DX=-1{ 

7980 IF RAD(I)2>6,5 THEN DY=1 ELSE DY=-1i 

7070 IF NC=NX THEN 7090 

7060  LOCATE KAR,YR: FRINT EBf; 

TOGO XR=INTEO(KI+XT-LR)/2): YR=RE 

FICSG LOCATE XR,tn: PRINT RAF: 

7{10 RETURN 

7170 : 

BOOQ =----------- SP INITIALISATION FARTIE ------------------ 
BDIiQ 

8020 T=0: ND=G: NC=NX 

6020 CLS: CLS #1 

8040 LOCATE #1, 5,1: FRINT #i, "BALLES BRIQUES"; 
BOSG LOCATE #1, 12,i1: FRINT #1, NC; 

è 060 

5070 FEN 2 

8089 FOR K=X1 T9 KX2 

6090  LOCATE K,Yi: FRINT Mé; 

5160  LOCATE X,Y2: PRINT Mf: 

8116 NEXT X 

Biz FOR Y=Yi TO Y2 

B120 LOCATE Ki,Ÿ: FRINT Mf: 

8149  LOCATE K2,Y: FRINT M$: 

61S5G NEXT Y 


8160 
8i70 
818û 
8190 
a20û 
6219 
8220 
8220 
8240 
8250 
B7ëû 
B5Gû 
5910 
8520 
CHE 
8340 
6550 
8560 
8570 
8589 
8590 
B6ûû 
5000 
SOi1G 
9020 
FÜrG 


g0i0 
FÜS0 
30460 
5070 
F68û 
3090 
990 
7110 

i20 
5156 
3140 
g15û 
sieû 
9170 
7186 
s190 
5266 
S210 
9220 


PEN 3 
FOR X=Xi+i TO X2-1 
FOR Y=Yz TO Y4 
LOCATE X,Y: PRINT ER; 
NEXT Y 
NEXT X 


PEN 1 
RETURN 


Panne SP FIN DE PARTIE =" 


EC=INT CIOO4NDEND/TxNX/ (NX-NC)) 

LOCATE 8,1%: FRINT "SCORE"; SC: 

LOCATE 6,15: PRINT "M-SCORE": MS; 

IF SCÈME THEN MS=SC 

WHILE INKEY#<h"": WEND 

LOCATE 6,i8: PRINT “voulez vous rejouer (O/N)"; 


R$=INKEYS: IF R$="" THEN 8580 
RETURN 
Pen —- SP INITIALIGATION DU JEU ------------------ 


M5=0: NX=é 





CE=0: ER=G: CAzé: 

Kisl: X2=4û: Vi=s: 

Yisb: Yési0: Ri=ij:s RY=23: LAS 
kKM=X2-LR 


NE=(X2-X1-1)#(V4-YT+1) 


SYMBOL AFTER 160 

SYMEOL 160, 204,204,51,51,204,204,51,51 

SYHBOL 161, 255,255,168,128,128,168,255,255 
GYMEOL 162, 60,12 26,255,255,255, 255, 126,60 

SYMEOL 163,255,255,0,0,0,0,0,0 

MÉ=CHRE (160): ER#=CHR£ (161): BA$=CHRS (162) 
RAÿ="": FOR Izi TO LR: RA$=RAS+CHR# (163): NEXT I 
Bé=""; FOR I=1 TO LR: Ef=B#+" ": NEXT I 


INK O0,CE: INK L,CR: INK 2,CA: INK 3,CB 
WINDOW #1,1,40,i,Y2=1 

PAPER Ü: CLS : BORDER ER 

FAFER #1,0: PEN #1,l: CLS #1 

RETURN 
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3. Si vous souhaiïtez personnaliser ce programme 
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< Pour modifier le nombre de balles d’une partie 


Remplacez, en 9020, le nombre 6 (dans NX = 6) par une valeur de votre choix. 


< Pour modifier la taille ou la position du mur de briques 


Il vous suffit de savoir que, en 9050, les valeurs de Y3 (ici 6) et de Y4 (ici 10) 
correspondent aux numéros des lignes d'écran entre lesquelles s'étend le mur. 


Ainsi, par exemple : 


9050 Y3=6 : Y4=11:R1=13 : R2=23 : LR=8 


vous fournira un mur commencant toujours à la 6° ligne, mais s'étendant jusqu'à 
la 11e ligne. 


De même : 


9060 Y3=7: Y4=11:R1=13 : R2=23 : LR=8 


vous fournira un mur de même taille que le mur d'origine, mais situé un peu plus 
bas sur l'écran. 


Attention : la valeur de Y3 doit toujours rester strictement supérieure à celle de 
Y1, définie en ligne 9040 (actuellement 3). La valeur de Y4 doit toujours être stric- 
tement inférieure à celle de R1, définie en ligne 9050 (actuellement 13). 
< Pour modifier les limites du domaine où se déplace la raquette 


Il vous suffit de savoir que, en 9050, les valeurs de R1(13) et de R2(23) en fixent 
les limites verticales. 


Par exemple : 


9050 Y3=-5 : Y4-6 : R1=15 : R2=22 : LR=8 
vous conduira à un domaine plus restreint. 


Avec : 


9050 Y3=6 : Y4=10 : R1=22 : R2=22 : LR=8 


vous obtiendrez un jeu où la raquette ne peut plus se déplacer verticalement (vous 
retrouverez la version classique du ‘‘mur de briques’'). 


< Pour modifier la taille de la raquette 


Remplacez, en 9050, le nombre 8 (dans LR = 8) par une valeur de votre choix. 


< Pour utiliser une poignée de jeu 
Remplacez les lignes 5020 et 5030 par : 


5020 RJ=JOY(0) : RG=RJ AND 4 : RD=RJ AND 8 
5030 RB=RJ AND 2 : RH=RJ AND 1 : IF RG+RD+RH+RB=0 THEN RETURN 


et les lignes 5050 et 5060 par : 


5050 XR=XR+2 « ((RD=8) + (XR <XM-1) - (RG=4) + (XR>X1 +1)) 
5060 YR=YR+(RB=2) + (YR<R2) + (RH=1) + (VR DR1) » (YR < > Y + 1) 


Notez que les déplacements ‘‘en diagonale’’ sont ainsi autorisés. 


4. Description du programme 


a) Techniques employées, décrites en annexe 


— Hasard, 

— Animation, 

— Lecture rapide du clavier, 

— Examen du contenu de l'écran. 


b) Le programme principal (100-190) 


120 définit une fonction permettant de connaître la couleur d'un point graphique 
de l'emplacement texte de coordonnées X,Y. 


130 appelle le sous-programme d'initialisation du jeu. 


140-180 correspondent au déroulement d’une partie. Elles sont répétées jusqu’à 
ce que vous précisiez que vous ne souhaitez plus rejouer : 


140 appelle les sous-programmes d'initialisation d’une partie et de placement 
d'une balle au hasard. 


150-160 sont répétées jusqu'à ce que toutes les briques soient détruites où 
que toutes les balles aient été utilisées : 


150 appelle les sous-programmes de déplacement de la balle et de la raquette 
et incrémente le compteur de temps. 


160 examine si la partie est terminée. 
170 appelle le sous-programme de fin de partie. 
180 examine si vous voulez rejouer. 
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c) Le sous-programme d'initialisation du jeu (9000-9220) 
9020 initialise le meilleur score et fixe le nombre de balles. 
9030 détermine les couleurs. 


9040-9070 fixent les coordonnées du cadre et du domaine où évolue la raquette, 
la longueur de la raquette et calculent le nombre de briques du mur. 


9090-9160 fabriquent les chaînes de caractères graphiques représentant le mur, le 
cadre, la balle et la raquette ainsi que la chaîne destinée à l'effacement de la 
raquette. 


9180-9210 définissent la fenêtre numéro 1 et fixent les couleurs. 


d) Le sous-programme d'initialisation d'une partie (8000-8250) 
8020initialise les compteurs de temps, de briques détruites et de balles restantes. 
8030-8050 affichent le nombre de balles. 

8060-8150 dessinent le cadre. 

8160-8220 dessinent le mur de briques. 


e) Le sous-programme de placement d'une balle au hasard (7000-7110) 
7020-7040 déterminent au hasard les coordonnées de la balle et la dessinent. 
7050-7060 déterminent au hasard la direction de déplacement de la balle. 


7070-7080 effacent la raquette de son ancienne position (sauf si l’on est en début 
de partie). 


7090-7100 redessinent la raquette en ‘‘position initiale’. 


f) Le sous-programme de déplacement de la balle (4000-4090) 


Pour chaque déplacement, il considère les couleurs C1, C2, C3 (obtenues par 
TEST) de trois cases, comme l'indiquent ces schémas, correspondants aux 4 direc- 
tions possibles de la balle. 


C1 | C3 C3 | C1 C2 C2 
C2 C2 C1 | C3 C3 | C1 


4020-4030 déterminent le contenu des trois cases C1, C2 et C3. 


40490 cas où l’une de ces cases est occupée : on appelle le sous-programme de 
rebond. 


4050-4080 cas où les trois cases sont disponibles : 
4050 efface la balle. 
4060 détermine les nouvelles coordonnées de la balle. 
4070 dessine la balle après s'être assurée que la raquette ne la ratait pas. 


4080 appelle le sous-programme ‘‘perte de balle’’ lorsque la raquette perd la 
balle. 


g) Le sous-programme de perte de la balle (6500-6570) 
6520-6530 actualisent le nombre de balles restantes. 


6540 émet un son approprié. 


6560 appelle, lorsqu'il reste encore des balles à jouer, le sous-programme de pla- 
cement d’une balle au hasard. 


h) Le sous-programme de rebond (6000-6190) 
6020 émet un son approprié. 
6030-6070 correspondent au cas où C1 est occupée : 


6040-6050 examinent s’il s’agit d’une brique et appellent, dans ce cas, le sous- 
programme ‘‘brique détruite’” qui actualise le compteur de briques détruites. 


6060 assure, dans tous les cas (bord ou brique) le rebond de la balle. 


6090-6130 correspondent au cas où C2 est occupée (sans que C1 le soit) : 


6100-6110 examinent s'il s’agit d’une brique et appellent dans ce cas, le sous- 
programme ‘‘brique détruite”’. 


6120 assure, dans tous les cas, le rebond de la balle. 
6150-6180 correspondent au cas où seule C3 est occupée : 


6160 examine s’il s’agit d’une brique et appelle, dans ce cas, le sous-programme 
‘brique détruite”. 


6170 assure, dans tous les cas, le rebond de la balle. 


6180 modifie, aléatoirement, le rebond (on est ici dans le cas où l'on touche une 
brique par un coin). 


i) Le sous-programme de déplacement de la raquette (5000-5090) 
5020 ‘lit’ le clavier. 


5030 examine s'il y a lieu de déplacer la raquette. 
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5040 efface la raquette. 


5050-5070 déterminent la nouvelle position de la raquette et la dessinent. 


j) Le sous-programme de fin de partie (8500-8590) 


8520-8550 calculent le score et l'affichent, en même temps que le meilleur 


score. 


8560 actualise le meilleur score. . 


8570-8580 vous demandent si vous voulez rejouer. 


5. Liste des variables 
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MS 
NX 

CE 

BR 

CR 

CA 

CB 
X1,X2,Y1,Y2 
Y3,Y4 
R1,R2 
LR 

XM 
NB 
M$ 
BR$ 
BA$ 
RAS 
B$ 


Meilleur score. 

Nombre total de balles. 

Couleur du fond de l'écran. 

Couleur du bord de l'écran. 

Couleur de la raquette, de la balle et des scores. 

Couleur du cadre. 

Couleur des briques. 

Coordonnées du cadre. 

Limites (verticales) entre lesquelles s'étend le mur de briques. 
Limites (verticales) entre lesquelles peut se déplacer la raquette. 
Longueur de la raquette. 

Abscisse maximum de la raquette, compte tenu de sa longueur. 
Nombre total de briques. 

Caractère graphique utilisé pour représenter le cadre. 
Caractère graphique représentant une brique. 

Caractère graphique représentant la balle. 

Chaîne de caractères graphiques représentant la raquette. 


Chaîne de caractères ‘’espace’’ servant à effacer la raquette. 


T Compteur de temps. 


ND Nombre de briques détruites. 

NC Nombre de balles restant à jouer. 

X,Y Coordonnées de la balle. 

DX,DY Déplacements élémentaires de la balle (valent — 1 ou + 1). 

XR,YR Coordonnées de l'extrémité gauche de la raquette. 

C1,C2,C3 Couleurs des caractères situés sur la trajectoire de la balle (voir 
schéma). 

SC Score. 


Variables auxiliaires 
RS A 
X,Y (dans le sous-programme 8000 seulement) 


D 
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15 
Embarquement immédiat 


1. Le jeu 
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Devenez pour un instant un extra-terrestre ! C'est ce que vous propose ce jeu 
qui vous place aux commandes d’une soucoupe volante. 


Vos compatriotes ont voulu réaliser une exploration pacifique de la terre. Ils y 
ont déposé une colonie de robots, programmés pour recueillir le maximum d'infor- 
mations. Mais les choses ont mal tourné ! Les terriens se sont emparés de vos 
robots et tentent d'en percer le secret. 


Vous êtes chargés de les récupérer le plus vite possible à l’aide d’une soucoupe 
équipée d'un générateur d'ondes anti-gravitationnelles. Vous pouvez ainsi « aspi- 
rer » n'importe quel objet, simplement en le survolant. Facile, direz-vous ! Cer- 
tes. Encore, faut-il éviter de récupérer par maladresse des robots terriens qui voi- 
sinent avec les vôtres. En effet, ceux-ci risquent d’endommager plus ou moins 


à 


6 he & #6 4 À 


LEE 





gravement votre soucoupe, vous obligeant ainsi à effectuer des réparations coû- 
teuses en temps. 


Le domaine où sont parqués vos robots est entouré d’un intense champ gravita- 
tionnel. Le moindre survol vous ferait Vous écraser au sol. 


Enfin, votre soucoupe consomme énormément d'énergie ; vous ne disposez que 
d’un temps limité pour effectuer votre « embarquement ». Si vous n'y parvenez 
pas dans le délai imparti, vous vous écraserez sur le sol terrestre. 


Le programme vous propose quatre vitesses de jeu et trois niveaux : 

e Niveau 1 : Destiné à l'entraînement. Il ne comporte ni robots terriens, ni 
champ gravitationnel. 

e Niveau 2: ll comporte des robots terriens, mais pas de champ gravitationnel. 


e Niveau 3: ll correspond à la description faite ci-dessus avec robots terriens 
et champ gravitationnel. 


Vous voyez ensuite apparaître vos robots (en jaune), les robots terriens (en bleu) 
s’il y a lieu et votre soucoupe (en jaune). Le tout est entouré d’une bordure rose 
qui délimite le domaine de jeu et qui, au niveau 3, représente le champ 
antigravitationnel. 


Vous pouvez examiner la situation à loisir et taper sur une touche lorsque vous 
êtes prêt à commencer. Vous dirigez votre soucoupe à l’aide des quatre touches 
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“ss let (plus précisément, vous en modifiez la direction de déplacement car 
elle ne reste jamais immobile). 


Le programme affiche en permanence le temps restant, le niveau de jeu, la vitesse 
choisie et le meilleur score déjà réalisé. Le survol d’un robot terrien est accompa- 
gné d’un bruit caractéristique et votre soucoupe est immobilisée pendant un cer- 
tain temps (aléatoire). Le survol d'un de vos robots se traduit par ‘’zap”’. 


Si vous parvenez à atteindre votre objectif dans le délai imparti, vous entendrez 
votre soucoupe s'éloigner de plus en plus rapidement. Dans le cas contraire, vous 
l'entendrez tomber au sol. 


2. Le programme 
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100 Hx#XHXXEHEREEEES CMBARQUEMENT IMMEDIAT XXXk44X 442 XX XX UE XXE 
{0 


120 DEF SC(X,Y) = TEST(I6E+x(K-1)+11,16x(25-Y)+7) 


NS 
ii 638! & 9000 
148  GGSUR 7000: GLSUR Boo 
30 REPARER "u RESETS THEN DBL=ASC(RE) 
160 XF={+r(DL=TAT  -(DLETLE);: VP=zY+(DL=Z40)-(DL=241) 
i70 Te: GATE kl,ô,it PRINT #1,T: 
:8Ù IF YIS4 THEN FOn iz1 [G 25x(4-V;): NEXT I 


150 IF FNSC(XF,YFI<:0 THEN 2606 

200 LOCATE KV: FRINT " "3 

210 X=XF: YV=YPF: LOCATE X,Y: FRINT 8#; 

220 IF T:0 AND NE:0 THEN {56 

230 IF T£=0 THEN GOSUR 2000 ELSE GOSUR 3009 
240 GOTO 310 

250 C=FNEC(XF,YF) 

260 IF C=3 AND NV=3 THEN GOSUB Z00G:GDTO 310 
27Q IF C=i THEN BERG GOTO 2:20 





280 IF C2 THEN 1700: SCOTO 226 
+0 Ir Czi THEN SGS 150: GOTO 270 
IG  GOTC 159 

110 IF TMS UCNV,VI) THEN ME CNVNIIET 


220  LOCATE 3,25 


23Q  WRILE INKEV#SS""S WEND 
340  FRINT "voulez vous rejouer"; 
3950  R$=INKEYESIF REZ" THEN 50 


260 IF RECY'N" THEN 140 
176 END 


380 

1500 
1510 
1520 


1530 


en 
en +s 
ST 


a re pa 
n on cu 
4 © 


6  . X 


te SP EXTRA TERRESTRE EMBARQUE --------"- 


FOR H=300 T0 20 STEP -19: SOUND 1,H,1: NEXT H 
NE=NE-1 


î 


r 


C2 


QYs PRINT “ "3 
X=XF: V=YP: LOCATE X,Y: PRINT St; 


or 


mn SP ROBOT TERRIEN TOUCHE -----------"- 


26 SOUNDH 1,2506,20 





2046 
2050 
2060 
2076 
5000 





EDES 
7000 
7016 
7020 
7950 
7640 
7036 
7060 
7070 


0 LOCATE X,Y+ PRINT " "; 


X=XP: Y=YF: LOCATE X,V: PRINT S#; 
P=INT(RND(1)+60) 
FOR I=1 TO P 
SOUND 1,2000,1: SOUND 1,0,10 
T=T-i: LOCATE #1,6,1: PRINT #1,7T: 
NEXT I 


36 RETURN 


FOR Ézi TG 200: NEXT 

T=0 

FOR H=10 TO 500: SOUND 1,H4,1: NEXT H 
FOR E=zf TO 1000: NEXT K 

RETURN 


ne SP GAGNE -------"-"-"""" 


FOR K=1 TD 360: NEXT K 
FOR H=500 T0 106 STEF -i: SOUND t,H,i: NEXT H 


: ss 
1 FOR H=100 TO 10 STEP -1: SOUND 1,H,3: NEXT H 
ÿ RETURN 


Trees ss SF CHOIX NIVEAU ET VITESSE ---------------- 
CLS: FEN 3 

LOCATE 9,3: FRINT "EMBARQUEMENT"; 

LOCATE 3,6: FRINT "IMMEDIAT"; 

LOCATE 3,9: PRINT "3 niveaux de jeu"; 

LÜCATE 5,10: PRINT "1 : pas d'obstacles"; 
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fi 
7150 
7180 
7170 
71930 
7150 
1200 
7210 
7370 
7230 
7240 
7250 
7260 
soc 


010 





3940 
E0so 
5060 
5970 
2060 
8960 
5100 
Bii0 
2129 
3120 
5140 
6150 
6ié6û 
E170 
5180 
&i90 
82060 
E210 
8220 
62230 
8240 
8250 


LOCATE 5,ft: PRINT "2 : obstacles (robots terriens)i":; 
LOCATE 5,12: PRINT "5 : obstacies et champ de gravite":; 
LOCATÉE 9,14: FRIAT “niveau choisi?": 

RE=INREVES IF R£="" THEN 7110 

NV=VALIRE) 

IF NV£=OQ OR NVSI THEN 7i10 

FRIAT NV: 


LOCATE 3,16: PRINT "4 vitesses possibles": 
LOCATE 6,17: PRIAT "de { (lent)": 

LOCATE 6,18: PRINT " a 4 (rapide)"; 

LOCATE 9,20: PRINT "vitesse choisie?"; 
RE=INKEVS: IF R$="" THEN 7200 

VI=VAL(RE) 

IF VI£&=0 OR VI>4 THEN 7200 

FRINT VI: 

FOR K=1 TO 1000: NEXT K 


RETURN 

PRESS P eee SF INITIALISATION PARTIE------------------- 
T=TX: NR=NRX: NE=NEX: 

CiG: CLS #1 

FEN 5 

FOR K=X1 TO X2 


=X 

LOCATE K,Yi: PRINT M$; 
E X,Y2: PRINT M$: 

NEXT X 

FOR Y=Y1 TO Y2 

LOCATE X1,Y: PRINT M$: 

LOCATE X2,Y: PRINT Mt; 


NEXT y 
IF NV=1 THEN 8200 
PEN 2 
FOR i=1 TO NR 

GOSUE ES00: LOCATE X,Y: PRINT REf; 
NEXT I 
PEN 1 


FOR I=i TO NE 
GOSUE BSOG:LOCATE K,Y: PRINT ET$; 
NEXT I 


GOSUE 8500: LOCATE X,Y: FRINT GS#; 








8:60 
8270 LOCATE #1,2,1 
260 WHILE INKHEYF£HU®: WEND 
“tapez sur une touche pour commencer"; 
IF A$f="" THEN 5700 
LOCATE #i,2,i 
FRINT #i, “TENFE -TEMFS NIV VIT ee 
\ LOCATE #i,19,1: PRINT #1, MECNV, VI); 
LOCATE #i,29,1: FRINT #l, NV; 
j LOCATE #1,237,1: PRINT #1, VI; 
RETURN 
SR eerne SF TIRAGE COORDONNEES D'UN POINT ---------- 
X=X1+2+INT(RND(I)#(X2-X1-3)) 
V=YI+Z+INT(RND(I1)x(Y2-Y1-3)) 
IF. FNSC(X,Y)<»0 THEN 6520 
RETURN 
5000 ------------ SP INITIALISATION DU JEU ------------------ 
5619 
3020 BR=0: CF=0: CG=74: CR=27: CD={é 
5070 Xi=i: KX2Z=36: Vizä: YV2=25 
7040 TX=806: NRX=15: NEX=25: Di=0 
S0SG 
5060 SYMBOUL AFTER 160 
5070 SYMBGOL 160, 60,126,255,219,219,255,255,60 
5060 SYMSOL 161, 28,28,8,62,93,28,20,20 
9050 SYMEOL 162, 26,28,6,62,95,28,20,20 
9100 SYMBOL 165, 24,60,126,255,255,126,60,24 
110 SÉEECHRE(IÉO): RBH=CHRE CIEL): ETÉ=CHRE (162): M#=CHRE(I6S) 
9120 ‘ 
9130 INK 0,CF: INK 1,06: INK £,CR: INK 3,CD 
9140 FAPER 0: CLS: BORDER ER 
9150 WINDOW #1, 1,40,1,1: PAPER #1,0: PEN #1,5: CLS #i 
5160 RETURN 


3. Si vous souhaitez personnaliser ce programme 


> Pour modifier la couleur 


e du fond : remplacez, en 9020, la valeur O (dans CF = O) par un nombre de 
votre choix. 
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des robots terriens : remplacez, en 9020, la valeur 23 (dans CR = 23) par 


un nombre de votre choix. 


œ 


de la soucoupe et de vos robots : remplacez, en 9020, la valeur 24 (dans CS 
24) par un nombre de votre choix. 


Pour changer la durée du jeu 


Remplacez, en 9040, la valeur 800 (dans TX = 800) par un nombre de votre choix. 


œ 


œ 


Pour modifier le nombre : 


de robots terriens : remplacez, en 9040, la valeur 15 (dans NRX = 15) par 
un nombre de votre choix. 


de robots extra-terrestres : remplacez, en 9040, la valeur 25 (dans NEX = 
25) par un nombre de votre choix. 


Pour utiliser une poignée de jeu 


Remplacez les lignes 150 et 160 par : 


150 R=JOY(0) : IF R<>0 THEN DL=R 
160 XP=X+(DL=4) - (DL=8) : YP=Y+(DL=1) - (DL=2) 


4. Description du programme 
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a) 


b) 


Techniques employées, décrites en annexe 
Hasard, 

Animation, 

Lecture rapide du clavier, 


Examen du contenu de l'écran. 


Le programme principal (100-370) 


120 définit une fonction permettant de connaître le numéro d'encre d'un point 


graphique de l'emplacement texte de coordonnées X, Y. 


130 appelle le sous-programme d'initialisation du jeu. 


140-360 correspondent au déroulement d'une partie. Elles sont répétées jusqu'à 
ce que vous précisiez que vous ne souhaitez plus rejouer : 


140 appelle le sous-programme de choix du niveau et de la vitesse du jeu 
ainsi que le sous-programme d'initialisation d'une partie. 


150-300 sont répétées jusqu'à ce que vous ayez embarqué tous les robots 
ou que le temps maximum soit dépassé ou que vous survoliez un champ 
gravitationnel : 


150 examine le clavier et actualise, s’il y a lieu, la direction de déplacement 
de la soucoupe. 


160 calcule la nouvelle position de la soucoupe. 
170 actualise le temps. 
180 réalise une attente dépendant de la vitesse de jeu choisie. 
190 examine le prochain emplacement de la soucoupe : 
200-230 cas où il est disponible : 
200-210 déplacent la soucoupe. 
220 examine si la partie est terminée (robots embarqués ou temps 
épuisé). 
230 appelle, suivant le cas, l’un des deux sous-programmes de fin : 
‘’perdu'” ou ‘gagné. 
250-300 cas où il est occupé : 


250-260 appellent le sous-programme de fin de partie s'il s’agit d’un 
champ gravitationnel et si l’on est en niveau 3. 


270 immobilise la soucoupe s'il s’agit d'un champ gravitationnel et si 
le niveau de jeu est différent de 3. 


280 appelle, s’il y a lieu, le sous-programme ‘‘robot terrien touché”. 
290 appelle, s'il y a lieu, le sous-programme ‘‘robot embarqué”. 


310-350 actualisent le meilleur score et vous demandent si vous 
souhaitez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9160) 


9010 fixe les couleurs. 

9030 fixe les limites du domaine du jeu. 

9040 fixe la durée maximum d'une partie, le nombre de robots terriens et 
le nombre de robots extra-terrestres. 


9060-9110 fabriquent les caractères graphiques représentant la soucoupe, 
les robots terriens, les robots extra-terrestres et le champ gravitationnel. 
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9130-9150 fixent les couleurs et définissent la fenêtre numéro 1 destinée à 
l'affichage des scores. 


d) Le sous-programme de choix du niveau et de la vitesse de jeu 
(7000-7250) 
7020-7040 affichent le titre du jeu. 


7060-7140 font choisir le niveau de jeu, en rejetant les réponses autres que 
1, 2 ou 3. 


7160-7230 font choisir la vitesse de jeu, en rejetant les réponses autres que 
1, 2, 3 ou 4. 


7240 attend un court instant. 


e) Le sous-programme d'initialisation d’une partie (8000-8370) 


8020 initialise le compteur de temps, le nombre de robots terriens et le 
nombre de robots extra-terrestres. 


8030-8120 dessinent le contour d’un rectangle représentant la zone où règne 
un champ gravitationnel. 


8130-8180 dessinent les robots terriens, s’il y a lieu (niveau de jeu au moins 
égal à 2). Le sous-programme 8500 est utilisé pour tirer les coordonnées d'un 
emplacement disponible. 


8190-8230 dessinent les robots extra-terrestres. Le sous-programme 8500 est 
utilisé pour tirer les coordonnées d'un emplacement disponible. 


8240-8250 dessinent la soucoupe dans sa position initiale. 
8270-8300 attendent que vous pressiez une touche. 


8310-8370 affichent le meilleur score, le niveau et la vitesse de jeu. 


f) Le sous-programme ‘‘robot extra-terrestre embarqué’ (1500-1560) 
1520 émet un son approprié. 

1530 actualise le nombre de robots restant. 

1540 efface le robot. 


1550 déplace la soucoupe. 


g) Le sous-programme ‘‘robot terrien touché’ (1700-1800) 


1720 émet un son approprié. 


1730 efface le robot. 


1740 déplace la soucoupe. 


1750-1790 attendent une durée tirée au hasard et actualisent le compteur 


de temps. 


5. Liste des variables 


BR 
CF 
CS 
CR 
CD 
X1,X2,Y1,Y2 
TX 
NRX 
NEX 
S$ 
RB$ 
ET$ 
M$ 


NV 

VI 

T 

NR 

NE 

X, Ÿ 
XP, YP 
MS(3,4) 


Couleur du tour de l'écran. 

Couleur du fond (domaine de jeu). 

Couleur de la soucoupe et des robots extra-terrestres. 
Couleur des robots terriens. 

Couleur d'écriture des messages et du champ gravitationnel. 
Coordonnées du domaine de jeu. 

Temps maximum d'une partie. 

Nombre de robots terriens. 

Nombre de robots extra-terrestres. 

Caractère graphique représentant la soucoupe. 

Caractère graphique représentant les robots terriens. 
Caractère graphique représentant les robots extra-terrestres. 


Caractère graphique utilisé pour représenter les limites du 
domaine. 


Niveau de jeu (de 1 à 3). 

Vitesse de jeu (de 1 à 4). 

Compteur de temps. 

Nombre de robots terriens. 

Nombre de robots restant à embarquer. 

Coordonnées de la soucoupe. 

Coordonnées du prochain emplacement de la soucoupe. 


Tableau des meilleurs scores. MS{I,J) contient le meilleur score 
relatif au niveau | et à la vitesse J. 
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DL Direction de déplacement de la soucoupe (240, 241, 242 ou 
243). 


Variables auxiliaires 

RS R A I 

C CS 

X,Y (dans les sous-programmes 8000 et 8500). 
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16 
Aliénation 


1. Le jeu 


Çà y est ! Les aliens, ces êtres venus d’ailleurs, ont envahi la terre. La race humaine 
a presque entièrement disparu de la planète. Vous êtes l’un des rares survivants. 
Pour Combien de temps ! De nombreux aliens ne cessent de vous poursuivre pour 
vous détruire. Or, le moindre contact avec l’une de ces créatures serait mortel. 


Pour comble de tout, vous ne disposez d'aucune arme pour vous défendre. Tou- 
tefois, ça et là gisent des robots, à forme humaine, cloués sur place par une pri- 
vation soudaine de l'énergie nécessaire à leur fonctionnement. Que puis-je atten- 
dre d'eux me direz-vous ? 


En fait, chacun de ces robots va pouvoir vous rendre un ultime service en faisant 
disparaître un alien (et un seul). En effet, tout contact entre un alien et un objet 
métallique conduit à la désintégration complète, et de l'objet et de l’alien. D'autre 
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part, les aliens sont des êtres un peu stupides et aux réflexes lents (c'est leur 
nombre seul qui fait leur force). 


Ils se déplacent par bonds irréguliers et, de facon assez grossière, dans votre direc- 
tion. Il vous suffit donc de les obliger à bondir sur un robot pour les faire disparaître. 


Comme vous le constaterez, les aliens font de grands bonds lorsqu'ils sont loin 
de vous. Par contre, une sorte de méfiance instinctive les amène à avancer plus 
lentement lorsqu'ils sont plus proches de vous. D'autre part, leur sens de l'orien- 
tation est peu évolué puisqu'ils peuvent être tout près de vous et faire un bond 
sur. ‘un emplacement voisin". 


Enfin, sachez que vous êtes la seule proie qui intéresse les aliens. En conséquence, 
ils ne voient aucunement les robots et leurs déplacements ne sont nullement affec- 
tés par leur présence. 


En début de partie, vous voyez apparaître la disposition des aliens (violets), des 
robots (bleus) et du personnage qui vous représente (en jaune). Vous pouvez pren- 
dre le temps d'étudier la situation avant d'appuyer sur une touche quelconque. 
La chasse infernale s'engage alors. Vous vous déplacez grâce aux quatre tou- 
ches fléchées ? Ne craignez pas de percuter un robot. Cela ne vous fera aucun mal. 


Chaque désintégration (robot + alien) vous est signalée par un bruit sec. Si vous 
êtes atteint par un alien (ou si, maladroitement, vous en percutez un) votre dispa- 
rition est accompagnée de sons et d'effets lumineux appropriés. Le programme 
affiche en permanence le temps qui s'écoule et le meilleur temps réalisé jusqu'ici. 


2. Le programme 


LOC UHELEHEEREREREREEXELEX ALIENATION KKKKKEEXEEXEREEEEEEEEÉE EE 


FNSC(X,V) = TEST(I6*x(X-1)+7,16x(25-V)+195) 
Ë 





UE gaëo 

SUE 6900 

R Iz{f TO K4 

zf+is LOCATE #i, S NT #i,1: 

GEUE 4000: GOSUE 5 FI=i THEN 200 
XT I 

TO 159 

CT=0 AND (TEMT OR MT=0G) THEN MT=T 


9 FOR Ezi TO 500: NEXT K 

QG WHILE INKEV#£)}" "2 WEND 

O LOCATE #1,26,1: FRINT #i,"rejouez vous"; 
40 RS=INKREVS: IF R$="" THEN 240 

50 IF RECHUHT THEN 140 
ä0 
3 


EE SF DEPLACEMENT HUMANDIDE ------"----""" 


DS=INREV(8): DD=INKEY (1): DH=INKEV(O): DB=INKEY (2) 





SUIO IF DGADD*DHXDE<S RO THEN RETURN 

400 XN=KE+(DG=0)-(DD=0): YN=YB+(DH=0)-(DB=Ù) 

4650 IF M? X2-2 GK XNCXI+2 OR YN>Y2-2 OR YN<YI+2 THEN RETURN 
ges CzF ee YA) 

+070 Ir C=3 HEN GOSUE 6600: RETURN 

4680 IF at RETURN 

8090 FEN ji: LOCATE XEB,VYE: PRINT ® "; 


4100 XB=XN: YE=YN: LOCATE XB,YB: PRINT H$; 
4110 RETURN 
4120 
PDO nie GP DEPLACEMENT ALIEN NUMERO I ------------- 


6 X=xA(I): Y=VAUCI)s IF X=0 THEN RETURN 
XN=X+URND(I)+0,5)4CCXÈRXE)- (XXE) +2#((X>XE+4)-(XSXR-4))) 
ŸN= F+ SRNE CERN EUE RL SR 
XN=INT(XMN): YN= INT CYN 





5660 C=FNSCCXN,YNIs IF C<> 0 THEN 5110 
5070 FEN ZI: LOCATE XQYE PRINT °°; 
SUEO LÜOCATE &N, . FRINT À$; 

5090 XA(I)=XN: YA(II=YN 


3100 RETURN 
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10 IF C=S THEN RETURN 

20 IF C=2 THEN GOSUR 7000 
20 IF C=1 THEN GOSUE 6900 
Q RETURN 


oœ en on Con on 


) SP MORT HUMANOIDE ---------""- 


Cr 
[ES 
CG 


ù 
Da | 


| 
CG Là 


FOR K= Q TO 76 

3 INE GK 

8040 FOR H=300 TG 106 STEP -26: SOUNDS 1,H,1: NEXT H 
0350 NEXT K 

5060 INK 0,0 

6070 LOCATE X6,YE: FRINT # “3; 

6086 PEN 3: LOCATE XN,YN: PRINT Af: 

600 FI=i 

100 RETURN 

6116 ‘ 

7600 SP MORT ALIEN -------------------- 
7910 ‘ 

7029 LOCATE X,Y: PRINT " "5: XA(I)=0 

7030 FEN 2: LOCATE XN,YN: PRINT Af; 

Fo8n FOR Haf6G fu #60 STEF 9: SOUND i,H,1: NEXT H 
7050 LOCATE XN,YN: PRINT " "; 

7060 CT=CT-1: IF CT<=0 THEN FIz=i 

7979 RETURN 

7680 ‘ 

GOÛT lasse =ssssss SP INITIALIGSATION PARTIE -------- 
6010 ‘ 

8020 CLS: CLS #1 

6030 CT=NA: T=0: FI=0 

6049 ‘ 

6050 FEN 2 

8060 FOR I=i TO NA 

6070 X=X{+INT(RND(1)#(X2-X{-5)) 

6080  Y=VYI+INT(RND(I)x(Y2-V1-5)) 

6060 IF FNSC(X,Y)<:0 THEN 8070 

B100 LOCATE K,Y: FRINT RB#: 


œ © cC 
me 


8110 NEXT I 

8126 

8130 FEN 3 

8140 FOR 21 TO NA 

8159 2 Dos 
8160 Y=YI+INT(RND(1)#(V2-VI+1)) 
6170 FNSC(X,Y)4)0 THEN 8160 
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8180 
Ei60 
8200 
8210 
6220 
8220 


3246 





GE7Ù 
3269 
8290 
8:00 
5310 
&320 
8350 
3000 
5010 
9020 
5020 
5040 
5050 
3060 
ÿo7û 
SOGEO 
gagû 
Si00 
7110 
Si2û 
9130 
914 
6150 
9160 
9170 


XACI)=XE YVACI)=Y 
LOCATE X,Y: FRINT À#; 
NEXT I 


XB=XI+INT(RND(1)#(X2-X1-4))+2 
YE=YI+INT(RND(I)#(Y2-Y1-4))+2 
IF FNSC(XEB,YB)<20 THEN 8220 


50 FEN 1 LOCATE XB,YB: PRINT Hf; 


LOCATE #1,1,1 

FRINT #1,"pour commencer, tapez surune touche"; 
REZ=INKEYS: IF Ré£="" THEN 6290 

CLS #1 

LOCATE #i,2,1: PRINT #i,"TEMPS M-TEMPS"3 MT; 
RETURN 


CE=0: BR=0: CH=24: Ch=10: CA=7 
X{=Z: X2=136: Yi=3x: YV2=25 
NR=ig: NA=iZ 

DIl XA(NA), YA(NA) 


SYMBOL AFTER 160 
CYMECL 160, 24,24,16,60,90,24,36,66 
SYMBOL 161, 28,28,8,127,28,28,20,20 
SYMBOL 162, 60,126,219,255,231,295,73,146 
H£=CHRS (160): RES=CHRS(161): A$=CHR#(162) 


MODE 

INK O,CE: INK 1,CH: INK 2,CR: INK 3,CA 

FAPER 0: CLS: BORDER ER 

HINDOW #1, 1,40,1,1: PAPER #1,0: PEN #1,1: CLS#1 
RETURN 


3. Si vous souhaitez personnaliser ce programme 


> Pour modifier le nombre de robots 


Remplacez, en 9040, le nombre 18 (dans NR = 18) par la valeur de votre choix. 


œ Pour modifier le nombre d'’aliens 


Remplacez, en 9040, le nombre 12 (dans NA = 12) par la valeur de votre choix. 
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REMARQUE : ne placez jamais plus d’aliens que de robots, car il serait alors impos- 
sible de gagner. 


> Pour utiliser une poignée de jeu 


4020 RJ=J0Y(0) : DG=RJ AND 8 : DD=RJ AND 4 
4030 DH=RJ AND 1 : DB=RJ AND 2 : IF DG+DD+DB+DH=0 THEN RETURN 
4040 XN=XB-(DG=8)+{(DD=4) : YN=YB-(DB=2)+(DH=1) 


4. Description du programme 


a) Techniques employées, décrites en annexe 


— Hasard, 

— Animation, 

— Lecture rapide du clavier, 

— Examen du contenu de l'écran. 


b) Le programme principal (100-260) 


120 définit une fonction permettant de connaître la couleur d’encre d'un point 
graphique de l'emplacement texte de coordonnées X, Y. 


130 appelle le sous-programme d'initialisation du jeu. 

140-250 correspondent au déroulement d'une partie. Elles sont répétées 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer : 
140 appelle le sous-programme d'initialisation d’une partie. 


150-190 sont répétées jusqu'à ce que la partie soit finie (Fl=1), soit par 
suppression de tous les aliens, soit par votre propre disparition : 


150-180 répètent, pour chaque alien, l'incrémentation du compteur de temps 
et l'appel des sous-programmes ‘‘déplacement humanoïde”" et ‘’déplace- 
ment d'un alien”. 


200 actualise le meilleur score. 
210-240 vous demandent si vous voulez rejouer. 
250 examine votre réponse. 


c) Le sous-programme dl'initialisation du jeu (9000-9170) 
9020 détermine les couleurs. 


9030 fixe les limites du domaine de jeu. 


140 


9040 fixe le nombre de robots et d'aliens. 
9050 réserve les deux tableaux contenant les coordonnées des aliens. 


9070-9110 fabriquent les caractères graphiques représentant l'humanoïde, 
les robots et les aliens. 


9130-9160 fixent les couleurs et définissent la fenêtre numéro 1 destinée à l’affi- 
chage des scores. 

d) Le sous-programme d'initialisation d'une partie (8000-8320) 

8020 efface l'écran. 


8030 initialise le compteur d'aliens survivants, le compteur de temps et l’indi- 
cateur de fin de partie. 


8040-8110 dessinent les robots. 


8120-8200 dessinent les aliens dans leur position et placent leurs coordonnées 
dans les tableaux XA et YA. 


8210-8250 dessinent l’humanoïde dans sa position initiale. 
8260-8290 attendent que vous pressiez une touche. 


8310 affiche le meilleur temps. 


e) Le sous-programme de déplacement d’un alien (5000-5140) 

Il déplace l’alien dont le numéro est compris dans la variable I. 

5020 vérifie que l’alien concerné est encore ‘vivant’. 

5020-5050 calculent la nouvelle position de l'alien. 

5060 examine le contenu de cette nouvelle position. 

5070-5100 correspondent au cas où elle est disponible ; elles déplacent l'’alien. 


5110-5130 correspondent au cas où elle est occupée : 
5110 examine s'il s’agit d’un autre alien. 
5120 appelle, s'il s’agit d’un robot, le sous-programme ‘mort d’un alien”. 
5130 appelle, s'il s’agit de l’humanoïde, le sous-programme ‘mort de 


l'humanoïde'’. 
f) Le sous-programme de déplacement de l’humanoïde (4000-4110) 


4020-4030 examinent le clavier. 
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4040-4050 calculent les nouvelles coordonnées de l'humanoïde et véri- 
fient qu'elles restent à l'intérieur du domaine de jeu. 


4060 détermine le contenu de la nouvelle position : 


4070 appelle le sous-programme ‘‘mort de l’humanoïde’’, s'il s’agit d'un 
alien. 


4080 examine s'il s’agit d’un robot. 
4090-4100 déplacent l'humanoïde lorsque la nouvelle position est 


disponible. 
g) Le sous-programme ‘mort de l’humanoïde’’ (6000-6100) 
6020-6050 créent des effets ‘’sonores et lumineux”. 
6060 rétablit la couleur de fond d’origine. 
6070-6080 font disparaître l’humanoïde sous l’alien. 


6090 positionne l'indicateur de fin de partie. 


h) Le sous-programme ‘‘'mort d'un alien’’ (7000-7070) 


7020-7050 déplacent provisoirement l'alien à l'emplacement occupé par un 
robot, émettent un son approprié, puis le font disparaître. 


7060 décrémente le compteur d’aliens survivants ; positionne à un l’indica- 
teur de fin de partie lorsque tous les aliens ont disparu. 


5. Liste des variables 
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CE Couleur de fond du domaine de jeu. 
BR Couleur du tour de l'écran. 

CH Couleur de l'humanoïde et des scores. 
CR Couleur des robots. 

CA Couleur des aliens. 


X1,X2,Y1,Y2 Coordonnées du domaine de jeu. 
NR Nombre total de robots. 


NA Nombre total d’aliens. 


XAI(NA),YA(NA) Tableaux contenant les coordonnées des aliens. Quand un alien 


H$ 
RB$ 
A$ 
B$ 


CT 
T 
FI 


XB,YB 
XN,YN 
| 

C 

MT 


disparaît, son abscisse prend la valeur zéro. 
Caractère graphique représentant l'humanoïde. 
Caractère graphique représentant les robots. 
Caractère graphique représentant les aliens. 


Chaîne de 36 caractères ‘’espace’’ utilisée pour l'effacement 
de ‘’messages’”. 


Nombre d'’aliens survivants. 
Temps écoulé. 


Indicateur de fin de partie : 
FI = O cas usuel 
FI 1 fin de partie détectée. 


Coordonnées de l'humanoïde. 

Nouvelles coordonnées de l’humanoïde ou d'un alien. 
Numéro de l’alien en cours de déplacement. 

Contenu d'une case. 


Meilleur temps. 


Variables auxiliaires 


RS 
| 
X 


(dans le sous-programme 8000 seulement) 
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17 
Les envahisseurs 


1. Le jeu 
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Les extra-terrestres envahissent notre planète. Bien que non armés, leurs inten- 
tions ne sont nullement pacifiques. Vous êtes chargés d'en détruire le maximum 
à l’aide de missiles classiques. 


Les envahisseurs se présentent par vagues de dix soucoupes. Leur entrée brutale 
dans l'atmosphère terrestre entraîne des perturbations de tout genre dont les deux 
plus importantes sont : violente illumination du ciel, neutralisation de votre base 
de tir (elle ne peut ni se déplacer, ni tirer de missiles). 


Les envahisseurs ont prévu que les différentes vagues se succèdent de plus en 
plus rapidement. Cependant, ils tiennent compte de votre habileté à les détruire. 
Plus vous serez rapides, plus le temps séparant deux vagues sera élevé. Votre 
ordinateur central, couplé à vos radars vous renseignera sur le délai prévu entre 





une vague et la suivante. Vous pourrez ainsi mesurer l'effet de votre effort 
destructeur. 


Au début du jeu, trois vagues apparaissent successivement en bas de l'écran. 
Les soucoupes s’immobilisent alors dans l'attente de la vague suivante. 


Vous voyez votre base de tir en haut de l'écran. Elle se déplace à l’aide des tou- 
ches ‘’+’"" et ‘’—"" et vous tirez un missile en pressant la barre d'espace. Vous 
ne pouvez tirer de nouveau missile tant que le précédent n'a pas atteint son but 
ou disparu en bas de l'écran. Par contre, vous pouvez déplacer votre base pen- 
dant qu'un missile est en l’air. Très souvent même, vous serez obligés de le faire 
pour gagner du temps. 


Quand une nouvelle vague de dix soucoupes se présente, le ciel devient blanc 
et vous ne pouvez plus agir sur votre base de tir. Les soucoupes déjà présentes 
montent légèrement pour faire place aux nouveaux arrivants puis tout redevient 
normal (si l’on peut dire). 


Le jeu se poursuit jusqu'à ce que l’une des soucoupes atteigne le niveau de votre 
base. Vous avez donc tout intérêt à éliminer les soucoupes les plus hautes. 


Le programme affiche en permanence votre score (nombre de soucoupes détrui- 
tes), le meilleur score, le nombre d’envahisseurs présents dans le ciel (N-EN) et 
le délai d'apparition de la vague suivante (DELAI). 
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2. Le programme 


146 


tÜUû 
ti 
129 
i30 
140 
159 
160 
170 
50 
190 
206 
219 
220 
230 
240 
250 
2ëû 
270 
260 
265 


UC 





350 

i600 
{610 
idze0 
1920 
1940 
1950 
1060 
1070 
1060 
1560 
i510 
1520 
{530 
i540 


1550 


LA RUN ENVAHISSEURS #4 446 4 EEE 


DEF FNSCIX,Y) = TEST (i6%x(X-1)+7,16*x(24-Y)+15) 
GOSUB 9000 

GOSUR BG 

FOR I=i T0 &: GOSUB 2000: NEXT I 

DN=DV: DC=DN 

FOR I=1 TO LV: GOSUE 2060 

IF FIzi THEN 279 
NEXT 


1 


LOCATE #1,36,1: PRINT #1, " Ms 
LOCATE #1,36,1: PRINT:#1, INT(DC); 


FOR I=i T0 DC 
GOSUE 1506: GOSUR 000: GOSUB 1500 


DN=DN%x2T: DC=DNXx(EV#Z0-NT)/(EV#x30) 
GOTO 170 

IF SC:MS THEN MS=S 

FOR K=1 TO 500: NEXT K 

WHILE INREV#£5"": WEND 

LOCATE 15,10 

PRINT "voulez vous rejouer“: 
RE=INKEVE: IF R$=°" THEN 520 
1F R$SDN" THEN 140 
END 


fe SF DEPLACEMENT BASE DE TIR -------"-"" 


IF INKEY(47)€30 OR YO{>YT THEN 1040 

XO=XT: VO=YT+1: LOCATE XO,YG: PRINT M$s: RETURN 
DG=INKEV(B): DD=INKEV(1): IF DDxDG<)0 THEN RETURN 
XN=XT+(DG=0)-(DD=0): IF XN>X2 OR XN€X1 THEN RETURN 
LOCATE XT,YT: PRINT " "3: LOCATE XN,YT:PRINT B#3;:XT=XN 
RETURN 


fe GP DEPLACEMENT MISSILE --------"-"" 


IF YO=VT THEN FOR K=i TO 20:NEXT K: RETURN 

YN=YG+i: LOCATE X0,YO: PRINT " “; 

IF CNSYE THEN YO=YT: RETURN 

IF CNSC(XO,YN)=OTHEN LOCATE XO,YN:PRINT M; :YO=YN: RETURN 


1560 
1570 
1580 
i390 
TUE 
1610 
1620 
26060 
2010 
2520 
2050 
2040 
2050 
2060 
2570 
2080 
2099 
2100 
Z116 
2120 
21230 
2140 
2156 
21460 
2170 
2180 
2190 
2260 
393060 
3916 
3920 
3656 
5040 
EGSO 
5060 
3070 
soeû 
3090 
8006 
60! 
BO2û 
850 
6046 
8650 


FOR H=200 TO 120 STEP -10:GSOUND 1,H,1: NEXT H 
LOCATE XO,YN: PRINT “ "; 

NECYN)=NE(YN)-1: GSC=SC+1: NT=NT-{ 

LOCATE #1,4,13 PRINT #1,SC: 

LOCATE #1,26,1: PRINT #1, NT; 

YO=YT: RETURN 


fn GP NOUVELLE VAGUE -----------"-" 


INK 0,26 

IF YG<2>VT THEN LOCATE XO,YO: FRINT " “s2 YO=YT 
IF NE(YT+2)<3%0 THEN GOSUR 3000: RETURN 

FOR K=YT+1 TO Y2-1: NE(KI=NE(K+1): NEXT K 
NE(Y2)=EV: NT=NT+EV 


LOCATE 40,24: PRINT CHAÿ(10) 

LOCATE XT,YT: PRINT Ef; 

PEN 2 

FOR K=1 TO EV 
X=INT(RND(I)#(X2-X1)+X1) 
IF FNSC(X,Y2)€30 THEN 2120 
LOCATE X,Y2: PRINT S#: 

NEXT K 

PEN 

INK 0,CE 

LOCATE #1,26,i: PRINT #1,NT: 

RETURN 


FOR K=0 TO 26 
INK O,K 
FOR H=200 TO 100 STEF -5: SOUND 1,H,1: NEXT H 
NEXT K 
FOR K=1 TO 500 : NEXT K 
Fl=it INK O,CE 


RETURN 
= SP INITIALISATION PARTIE --------- 

CiS: CLS #1 

LOCATE #1,2,1: PRINT #1, "SC M-SC"; HS; 

LOCATE #1,22,1: PRINT #1, "N-EN DELAI"; 
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=GrFisô:r NT=G 
TO YZ: NE(I)=û: NEXT I 


0e PEN ÏÎ 

QG XTz21 si: KXO=XT: YG=YT 
de LOCATE YT: FRINT B#f; 
5 


{0 
1 
i 


ji CE=23: BR=û: CT=2: CS=b: CFr=0 
16 Ki=2: XZ=EG: Vizi: YV2=E4 , 
DV=180: EV=S: LV=2: 27=0,975 
5) 





OùG MS=û: DIM NE(ZS 


9070 SYMEOL AFTER 160 
S0EO SYMBOL 160, 255,255,126,60,24,24,24,24 
3090 SYMBOL 161, 24,24,24,24,24,24,24,24 
3100 SYMEOL 162, 24,60,126,219,219,255,126,0 
9110 B$=CHR#(160): M$=CHR#(ib1): G$=CHR# (162) 
5120 ‘ 
9130 MODÉ ! 
3140 INK O,CE: INK 1,CT: INK 2,06: INK S,CF 
WINDOW #1,1,40,1,1: PAPER #1,2: PEN #1,3: CLS #1 
160 WINDOW #0, 1,40,2,25: PAPER 0: PEN 1: CLS 
170 BORDER ER 
180 RETURN 


“ 
— 
Lau 
C: 


Us 9 <Q 


3. Si vous souhaitez personnaliser ce programme 


> Pour modifier la couleur du ciel 


Remplacez, en 9020, la valeur 23 (dans CE = 23) par un nombre de votre choix 
compris entre O et 26. 


> Pour modifier la couleur des soucoupes 


Remplacez, en 9020, la valeur 6 (dans CS = 6) par un nombre de votre choix 
compris entre O et 26. 


> Pour modifier le nombre de soucoupes par vague 


Vous pouvez agir à la fois sur le nombre de soucoupes par ligne (actuellement 
5) et sur le nombre de lignes par vague (actuellement 2). 
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Pour modifier le nombre de soucoupes par ligne, remplacez, en 9040, la valeur 
5 (dans EV = 5) par le nombre de votre choix. 


Pour modifier le nombre de lignes par vague, remplacez, en 9040, la valeur 2 (dans 
LV = 2) par un nombre de votre choix. 


> Pour modifier le rythme de jeu et le rendre ainsi plus facile ou plus difficile 


Vous pouvez agjir à la fois sur le délai initial séparant deux vagues (actuellement 
180) et sur le coefficient réducteur de délai (actuellement 0.975). 


Pour modifier le délai initial séparant deux vagues, remplacez, en 9040, la valeur 
180 (dans DV = 180) par un nombre de votre choix. 


Pour modifier le coefficient réducteur, remplacez, en 9040, la valeur 0.975 (dans 
ZT = 0.975) par un nombre de votre choix ne dépassant pas 1. Un nombre supé- 
rieur à 0.975 correspondra à une partie dont le rythme s’accélèrera moins rapide- 
ment. Un nombre plus petit correspondra à une accélération plus rapide du rythme. 


Notez que si vous souhaitez que le délai séparant deux vagues soit constant, il 
vous suffit de choisir 1 comme coefficient. 


> Pour utiliser une poignée de jeu 
Remplacez la ligne 1020 par : 


1020 RJ=JOY (0) : IF (RJ AND 16) <> 16 OR YO < > YT THEN 1040 
et les lignes 1040 et 1050 par : 

1040 DG=RJ AND 4 : DD=RJ AND 8 : IF DD+DG=0 THEN RETURN 

1050 XN=XT+(DG=4)-(DD=8) : IF XN>X2 OR XN<X1 THEN RETURN 


4. Description du programme 


a) Techniques employées, décrites en annexe 
— Hasard, 

— Animation, 

— Lecteur rapide du clavier, 


— Examen du contenu de l'écran. 


b) Le programme principal (100-320) 


120 définit une fonction permettant de connaître le numéro d'encre d’un point 
graphique de l'emplacement texte de coordonnées X,Y. 
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130 appelle le sous-programme d'initialisation du jeu. 

140-330 correspondent au déroulement d'une partie. Elles sont répétées 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer : 
140 appelle le sous-programme d'initialisation d’une partie. 
150 fait apparaître quatre rangées d’envahisseurs. 


160 initialise les valeurs des délais entre deux vagues (voir variables DC et 
et DN). 


170-260 sont répétées jusqu'à ce que les envahisseurs aient atteint votre base 
(F1 = 1): 


170-190 font apparaître une nouvelle vague de soucoupes, en vérifiant 
qu'elle n'atteint pas votre base. 


200-210 affichent le délai d'apparition de la prochaine vague. 


220-240 répètent (un nombre de fois correspondant au délai) l’appel des 
sous-programmes de déplacement du missile et de la base de tir. 


250 actualise les valeurs des délais. 
270 actualise le meilleur score. 
280-320 vous demandent si vous souhaitez rejouer. 


330 examine votre réponse. 


c) Le sous-programme d'initialisation du jeu (9000-9180) 
9020 détermine les couleurs. 
9030 fixe les limites du domaine de jeu. 


9040 initialise le délai séparant deux vagues, fixe le nombre d'envahisseurs 
par ligne, le nombre de lignes par vague et le coefficient de réduction de délai. 


9050 initialise le meilleur score et réserve l'emplacement du tableau servant à 
comptabiliser le nombre d'’envahisseurs présents sur chaque ligne d'écran. 


9060-9110 fabriquent les caractères graphiques représentant la base de tir, 
le missile et les soucoupes. 


9130-9170 définissent les ‘‘fenêtres’’ et fixent les couleurs. 


d) Le sous-programme d'initialisation d’une partie (8000-8110) 
8020-8040 effacent l'écran et affichent les titres. 
8070 initialise les positions de la base de tir et du missile. 


8080 dessine la base de tir. 


8090 initialise le délai séparant deux vagues, le score, l'indicateur de fin de 
partie et le nombre de soucoupes présentes sur l'écran. 


8100 initialise le tableau : nombre de soucoupes par ligne d'écran. 


e) Le sous-programme de déplacement de la base de tir (1000-1070) 
1020 examine le clavier. 


1030 initialise un tir si la barre d'espace a été pressée et si aucun autre tir n’est 
en cours. 


1040-1050 calculent la nouvelle position de la base de tir, en vérifiant qu’elle ne 
sort pas des limites permises. 


1060 déplace la base de tir. 


f) Le sous-programme de déplacement du missile (1500-1610) 

1520 examine si un tir est en cours ; 

1530 calcule la nouvelle position du missile et l’efface de son ancienne position. 
1540 annule le ‘‘tir en cours” si le missile sort de l'écran. 

1550 déplace le missile si la nouvelle position est disponible. 


1560-1610 correspondent au cas où une soucoupe est atteinte : 
1560 émet un son approprié et efface la soucoupe. 


1570-1600 actualisent le nombre de soucoupes par ligne, le score, le 
nombre de soucoupes présentes sur l'écran. 


1610 annule le ‘tir en cours’. 


g) Le sous-programme ‘‘'nouvelle vague d'envahisseurs'’ (2000-2190) 
2020 donne au ciel la couleur ‘’blanc’’. 
2030 annule le tir en cours, s'il y a lieu (en effaçant le missile). 


2040 vérifie que la ‘‘dernière’’ ligne ne contient pas d’envahisseurs. Si ce n’est 
pas le cas, le sous-programme ‘‘fin de partie’’ est appelé. 


2050-2060 actualisent le nombre d'envahisseurs par ligne et le nombre total 
d'envahisseurs présents sur l'écran. 


2080-2090 font défiler le contenu de l'écran vers le haut (scroll) et redessi- 
nent la base de tir. 


2100-2150 placent au hasard cinq nouveaux envahisseurs en bas de l'écran. 
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2170 rétablit la couleur ‘’normale'” du ciel. 


h) Le sous-programme de fin de partie (3000-3080) 


3020-3050 font passer le ciel par ‘‘toutes les couleurs'’ en émettant des sons 


appropriés. 


3060 attend un instant. 


3070 positionne l'indicateur de fin de partie et redonne au ciel sa couleur 


‘’normale''. 


5. Liste des variables 
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CE 

BR 

CT 

CS 

CF 
X1,X2,Y1,Y2 
DV 

EV 

LV 

ZT 
NE(24) 


MS 

B$ 

M$ 

S$ 
XT,YT 
XO,YO 
DC 


Couleur du ciel. 

Couleur du tour de l'écran. 

Couleur de la base de tir et des scores. 

Couleur des soucoupes. 

Couleur de fond du bandeau supérieur où s'affichent les scores. 
Coordonnées du domaine de jeu. 

Délai maximum séparant deux vagues. 

Nombre d'envahisseurs par ligne. 

Nombre de lignes formant une vague. 

Coefficient réducteur du délai séparant deux vagues. 


Tableau contenant le nombre de soucoupes de chaque ligne 
d'écran. 


Meilleur score. 

Caractère graphique représentant la base de tir. 

Caractère graphique représentant le missile. 

Caractère graphique représentant les soucoupes. 

Coordonnées de la base de tir. 

Coordonnées du missile. Si YO = YT, aucun tir n'est en cours. 


Délai séparant deux vagues. 


SC 
FI 


NT 
XN 
YN 


Score. 


Indicateur de fin de partie : 
0 : cas normal 
1 : fin de partie 


Nombre total d'envahisseurs présents sur l'écran. 


Nouvelle abscisse de la base de tir. 


Nouvelle ordonnée du missile. 


Variables auxiliaires 


R$ A 
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18 
Billard 


1. Le jeu 
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Vous allez pouvoir vous adonner aux joies de ce jeu, sans risquer de déchirer le 
tapis d’un coup de canne malencontreux. 


Le but consiste à lancer votre boule, grâce à une canne, de manière à ce qu’elle 
vienne toucher une autre boule après deux rebonds sur les bords du billard. Si 
vous touchez sans rebond (ce qui est très facile) ou après un seul rebond, vous 
ne marquez aucun point. 


Le programme commence par vous dessiner un tapis de billard (jaune) entouré 
d’une bordure violette. Vous voyez apparaître deux boules, en des emplacements 
quelconques. L'une d’entre elles est accompagnée d’une ‘’canne de billard’” repré- 
sentée par un trait. Vous allez tout d’abord devoir mettre en place la canne dans 
la position qui vous semble la meilleure pour l'objectif visé (toucher l’autre boule 





en deux rebonds). Vous utilisez pour cela les touches fléchées qui vous donnent 
deux vitesses de déplacement de la canne (autour de la boule) : 


+ : déplacement lent dans le sens inverse des aiguilles d'une montre. 

| déplacement rapide dans le sens des aiguilles d'une montre. 

— : déplacement lent dans le sens des aiguilles d'une montre. 
déplacement rapide dans le sens des aiguilles d'une montre. 


Quand la position vous paraît correcte, vous ‘‘tirez'’ en pressant la barre d'espace. 
Vous entendez alors le son de la canne heurtant votre boule puis celle-ci se déplace 
sur le tapis. Chaque rebond se signale par un son approprié. 


Si vous touchez la boule dans les conditions requises vous serez récompensés 
par le jeu d’un accord. 


Douze coups vous seront ainsi proposés. A la fin vous obtiendrez un score qui 
dépendra du nombre de coups réussis et du temps passé à mettre votre canne 
en place. 


Le programme affiche en permanence le temps qui s'écoule pendant la mise en 
place de la canne, le numéro du coup et le nombre de coups réussis. 
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2. Le programme 


LOU OCURARARRRNRERNEERNREREAEEXEE BILLARD HKXKEHREREMEÉEÉEREREREEEHS 
115 ‘ 

126 GOSUR 9000 

1:10 GOSUE E000 

146 FOR NB=1 TO NC 

150 GOSUR 7000 

166 XN=X+CT: YN=Y+ET 

i7û IF ABS(XN-XC){16 AND ABS(YN-YC)<16 THEN TC=1 

1Eù IF XNCX1 OR XN)X2-16 DR YN<SY{i+16 OR YN>Y2 THEN GOSUE 2060 
190 MOVE %,Y,0: PRINT B#: 

z0û X=XN: Y=YN 

210 MOVE X,Y,2: FRINT B#: 


229 IF TC<>i AND NR£=RX THEN 160 
236  GOSUE 4660 

240 NEXT NE 

25û GOSUB 8590 

249 IF RE£È"N" THEN 1270 


270 END 


IF XNEXI THEN XN=Xi: NR=ENR+i: CT=-CT 
FF XN2X2-18 THEN XN=XZ-16: NR=NR+i: CT=-CT 
ÎF YNEYI+rié THEN YN=Vi+tié: NR=NR+i: ST=-6T 
YN2Y2 THEN YN=Y2: NR=NRri: ST=-ST 


; 4 74 = 
D i,519,5 
À 


- Jin r: 
mi C9 Ti 





4G0Q SP FIN D'UN COUF -----mmmmmmmmmmmm 
4010 ‘ 
43020 IF TC=1 THEN SOUND i,478,10 
4650 IF TC<>1 OR NRC>RX THEN 4070 
4040  SOUND i,478,20: SOUND 1,379,20 
4050  SOUND 1,219,20: SOUND 1,239,20 
au  NT=NT+i 
4670 LOCATE #1,25,2: FRINT #1, NT: 
4060 FOR K={i TO 500: NEXT K 
4090 MOVE XC,YC,O: PRINT B$: 
$!50 MOVE X.Y,9: FRINT Ef; 

à RETURN 
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&g to 
&GiG 
8020 
CRETE 
8040 
6050 
6560 
6970 
£060 
6090 
£190 
tio 


© 


On On EN CN CN EN Ces me pe ee 
Q CA 4 He © UM He LA hi 
DD OST © HE 


SRE D OT OC 
s © 


T=T+i: GOSUB 6560 
XE=X+0+LC+COS (TH): YE=Y-74+LC#SIN(TH) 
KD=X+8+12#C0S (TH): YD=Y-7+124SIN(TH) 
MOVE XD,YD: DRAW XE,VE,2 


DG=INKEY(8): DD=INKEY(I) 
DH=INKEY(O): DE=INKEY(2): DTR=INKEY(47) 
IF DGXxDDXDH*DBxDTR{>G THEN T=T+0.2: GOSUB 6500:G0T0 6070 
TH=TH+((DG=0)-(DD=0)+7#((DH=0)-(DE=0) ))#DT 
MOVE XD,YD: DRAW XE,YE,0 
IF DTR{HG THEN 6020 
SOUND 1,478,5 
RETURN 


P SF AFFICHAGE TEMPS ------""" 


TAGOFF 

LOCATE #1, 4,2 
PRINT #1, INTCT):3 
TAG 

RETURN 


ne 5P DEBUT COUF ----------""""""" 


o LOCATE #1,1%,2: PRINT #i,NB: 


4û TAB: PEN 2 
50 XE=Ki+10+INT(RNDILI#(X2-K1-20)) 


7666 
7090 
7100 
7110 
7120 
7156 
7145 
7150 
Ti 


71479 
YA 


7iEû 





YC=Y!+ILO+INT(RND(I)#(Y2-Y1-20)) 


à MOVE XC,YC,2: PRINT Ef: 


X=X1I+IO+LC+TINT(RND(I)x(X2-X1-20-2*LC)) 


Y=Yi+IO+LC+INT(RND(I)#(Y2-Y1-20-2#LC)) 


IF SGRC(X-KC)*2+(V-YC)*2)<=LC+10 THEN 7090 
MOVE X,Y,2: PRINT Bf; 

TC=0: NR=0 

GOSUR 6000 

CT=-DE+COS(TH): ST=-DE4#CIN(TH) 


RETURN 
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8000 ‘------------ SF INITIALISATION PARTIE --------- 
8010 ‘ 

8020 T=0: NT=0 

B0:O CLS #1 

8040 LOCATE #1,3,1 

8050 PRINT #1, "TEMPS BOULE COUPS-REUSSIS": 

6060 RETURN 


8070 

B500 ‘------------ SP FIN DE PARTIE ------ 
8519 

2520 FOR K=1 TO 500: NEXT K 

6530 SC=INT(NT#1000-54T): IF SC{O THEN SC=0 

8540 LOCATE #1, 1,3 

8550 FRINT #1, "SCORE"; GC; 

2540 FRINT #1, "N-SCORE“:; MS: 

8570 IF SC:MS THEN MS=9C 

8580 WHILE INKEY#$<2"": WEND 


8590 PRINT #1, "on rejoue"; 
6600 R$=INKEYS: IF R$="" THEN 8600 
8619 RETURN 


6620 

900 ‘------------ SF INITIALISATION DU JEU ------------------ 
5010 ‘ 

8020 NC=12: RX=2: MS=9 

9030 ER=1: CT=7: CFr=74: CH=6: CS=14 

5646 XiT=3: X27=38: VIT=3: Y2T-=26 

5550 LC=60: DT=5,0%2: DE=fé: TH=0 


3060 

ÿ070 MODE Ïi 

9080 SYMEOL AFTER 1é0 

9060 SYMEOL 160,60,126,255,255,255,255,126,60 
9100 H$=CHR$ (160) 

7110 

9120 INK O,CF: INK 1,07: INK 2,CB: INK 5,CS 
5130 WINDOW #1, 1,40,23,25 

9140 FAPER #1,0: PEN #1,3: CLS #1 

9150 ‘ 

916 FAPER ii: CLS 

9170 FAFER O0: EORDER ER 

GS160 FOR X=XIT. TO X2T 

5199 FOR Y=YiT TO Y2T 

g200 LOCATE X,Y: FRINT " ": 


F210 NEXT Y 
31220 NEXT *X 
7229 
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QRA4U KI=iéx(XIT-1}ri: KIS164KIT 
9250 Yi=iéx(25-YIT): Y2Z=féx(Z6-YIT)-1 
9260 RETURN 


3. Si vous souhaïtez personnaliser ce programme 


> Pour modifier la couleur des boules et de la canne 

Remplacez, en 9030, la valeur 6 (dans CB = 6) par un nombre de votre choix 
entre O et 26. 

œ Pour modifier la couleur du ‘‘tapis’’ 

Remplacez, en 9030 la valeur 24 (dans CF = 24) par un nombre de votre choix 
entre O et 26. 

> Pour modifier le nombre de coups par partie 


Remplacez, en 9020, la valeur 12 (dans NC = 12) par un nombre de votre choix. 


> Pour rendre le jeu plus facile ou plus difficile 


Vous pouvez agir sur le nombre obligatoire de rebonds. Pour cela, il vous suffit 
de remplacer, en 9020, la valeur 2 (dans RX = 2) par celle de votre choix. Ainsi : 


e O conduira à un jeu extrêmement facile puisqu'aucun rebond ne sera néces- 
saire. Cela peut vous servir, au début, à vous entraîner. 


e 1 conduira à un jeu assez facile ne demandant qu'un seul rebond. 
e 2 correspond au programme actuel. 


e 3 conduira à un jeu très difficile puisque trois rebonds seront nécessaires etc. 


4. Description du programme 


a) Techniques employées, décrites en annexe 
— Hasard, 
— Animation, 


— Lecture rapide du clavier. 
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b) Le programme principal (100-270) 

120 appelle le sous-programme d'initialisation du jeu. 

130-260 correspondent au déroulement d'une partie ; elles sont répétées jusqu'à 
ce que vous précisiez que vous ne désirez plus rejouer : 
130 appelle le sous-programme d'initialisation d’une partie. 


140-240 répètent douze fois les instructions 150 à 230 qui constituent 
le jeu d’un coup : 


150 appelle le sous-programme de ‘‘début d'un coup’ (dessin des boules, 
mise en place de la canne et tir). 


160-220 déplacent votre boule jusqu'à ce qu’elle touche la boule cible 
ou que le nombre de rebonds soit supérieur à deux : 


160 détermine les nouvelles coordonnées de votre boule. 
170 examine s'il y a contact entre les deux boules. 
180 appelle, s’il y a lieu, le sous-programme ‘‘rebond’'. 
190-210 déplacent votre boule. 

230 appelle le sous-programme de fin d'un coup. 


250 appelle le sous-programme de fin de partie. 


c) Le sous-programme d'initialisation du jeu (8000-9260) 


9020 fixe le nombre de coups d’une partie, le nombre de rebonds requis 
et initialise le meilleur score. 


9030 détermine les couleurs. 
9040 fixe les limites du ‘’tapis’’ de jeu (en coordonnées texte). 


9050 fixe la longueur de la canne, sa position initiale et les déplacements 
élémentaires. 


9070-9100 définissent le caractère graphique représentant une boule. 


9120-9140 définissent la fenêtre numéro 1 où s'affichent les scores et fixent les 
couleurs. 


9160-9220 dessinent le billard. 


9240-9250 déterminent les limites du billard (en coordonnées graphiques). 


e) Le sous-programme de début d'un coup (7000-7170) 


‘7020 affiche le numéro du coup. 


7040-7070 déterminent, au hasard, la position de la boule cible et la 
dessinent. 


7090-7140 tirent au hasard la position de votre boule (en tenant compte de la 
longueur de la canne) et la dessinent. 


7140 initialise l'indicateur ‘touché’ et le nombre de rebonds. 
7150 appelle le sous-programme de mise en place de la canne. 


7160 détermine les déplacements élémentaires de la boule. 


f) Le sous-programme de mise en place de la canne (6000-6140) 
6020-6120 sont répétées jusqu'à ce que vous pressiez la barre d'espace : 


6020 actualise le temps et l'affiche (en appelant le sous-programme 6500). 
6030-6050 dessinent la canne. 


6070-6090 attendent qu'une touche du clavier soit pressée, en incrémentant 
le compteur de temps. 


6100 détermine la nouvelle position (angulaire) de la canne. 
6110 efface la canne de son ancienne position. 

6120 examine si la touche pressée est la barre d'espace. 
6130 émet un bruit de choc. 


g) Le sous-programme de déplacement avec rebond (2000-2070) 


2020-2050 déterminent la nouvelle position de la boule, incrémentent le 
compteur de rebonds et actualisent les déplacements élémentaires en fonction 
du bord sur lequel rebondit la boule. 


2060 émet le son correspondant au rebond. 


h) Le sous-programme de fin d'un coup (4000-4110) 
4020 fait entendre un bruit de choc, s’il y a lieu. 
4030 examine si le coup est réussi ou non. 


4040-4070 en cas de coup réussi, font retentir un accord, incrémentent le score 
et l’affichent. 


4080-4100 effacent les deux boules 


i) Le sous-programme de fin de partie (8500-8610) 


8520 attend un instant. 
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8530-8560 calculent le score et l’affichent en même temps que le meilleur score. 


8570 actualise le meilleur score. 


8580-8600 vous demandent si vous voulez rejouer. 


5. Liste des variables 
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NC 

RX 

MS 

BR 

CT 

CF 

CB 

CS 
X1,X2,Y1,Y2 


X1T, X2T, 
YAT, Y2T 


LC 

DT 

DE 

TH 

ï 

NT 

XC, YC 
X, Ÿ 
TC 


NR 


Nombre de coups d'une partie. 

Nombre de rebonds requis. 

Meilleur score. 

Couleur du pourtour de l'écran. 

Couleur du bord du billard. 

Couleur du ‘‘tapis’’ et du fond où s'affichent les scores. 
Couleur des boules et de la canne. 

Couleur d'affichage des scores. 

Coordonnées du ‘tapis’ du billard (et coordonnées graphiques). 


Coordonnées ‘‘texte’” du tapis du billard. 


Longueur de la canne. 

Déplacement angulaire élémentaire de la canne. 
Déplacement élémentaire de la boule. 

Angle formé par la canne et l'axe horizontal. 

Temps écoulé pendant la mise en place de la canne. 
Nombre de coups réussis. 

Coordonnées de la boule cible. 

Coordonnées de votre boule. 


Indicateur ‘’boule cible touchée’ : 
0 : pas de boule touchée 
1 : boule cible touchée 


Compteur du nombre de rebonds, au cours d'un même coup. 


CT Déplacement horizontal élémentaire de votre boule. 


ST Déplacement vertical élémentaire de votre boule. 
XE, YE Coordonnées d'une extrêmité de la canne. 

XD, YD Coordonnées de l’autre extrêmité de la canne. 
SC Score. 


Variables auxiliaires 


R$ A CL 
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19 
Dictée musicale 


1. Le jeu 
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Voici un excellent moyen de révéler ou de développer vos talents de musicien. 
C'est en effet une ‘‘dictée’’ que vous propose le programme ; il va vous faire enten- 
dre des notes que vous devrez reconnaître en les plaçant sur une portée musi- 
cale. Sans aucun doute, la pratique répétée de ce jeu vous permettra d'affiner 
considérablement votre ‘‘oreille'’. 


Au début du jeu apparaît une portée avec, en jaune, la note do (pour les ‘‘ini- 
tiés’”, notez que nous sommes censés travailler en clé de sol, laquelle est la plus 
usuelle). 


Le programme vous fait alors entendre le son correspondant, en transformant la 
note en rouge, pendant tout le temps où elle est jouée. Une deuxième note vous 
est alors jouée. Il vous faut la reconnaître en plaçant correctement une note sur 
la portée. Pour cela, vous déplacez la dernière note (blanche) dessinée par le pro- 





1! 


gramme (à un endroit toujours inexact) à l’aide des touches ‘1 et ‘’}"". Quand 
vous pensez l'avoir bien située, vous appuyez sur la barre d'espace. Si votre 
réponse est correcte, vous marquez un point. Dans le cas contraire, votre note 
est effacée tandis qu’un son approprié retentit et la note correcte est dessinée. 


Le programme va alors vous faire deviner une troisième note, en vous faisant 
entendre à nouveau les deux notes qui figurent déjà sur la portée. À chaque fois, 
la note jouée se signale en ‘‘rougissant””. 


Le jeu se poursuit ainsi, de note en note, de devinette en devinette. Toutefois, 
pour que tout cela ne devienne pas trop lent, à partir de la sixième note, le pro- 
gramme se contente de vous faire entendre les cinq dernières notes seulement. 
Cela devrait vous fournir une préparation sonore suffisante pour trouver la der- 
nière note entendue. Si ce n'était pas le cas, vous verrez au paragraphe 3, com- 
ment modifier cela. 


Le programme vous propose 27 niveaux de jeu, grâce à deux paramètres que vous 
pouvez choisir : 


a) Le domaine dans lequel vont évoluer les notes. Trois options possibles : 


1 — de ‘‘do’’ à ‘‘sol’’ : cela fait donc 5 notes en tout : do, ré, mi, fa et sol. 
2 — de ‘‘do’’ à ‘‘do’’ : cela correspond donc aux 8 notes d’un octave. 
3 — de ‘‘do’’ à ‘‘la’’ : il faut comprendre du do d’un octave au la de l’octave 


supérieur. Cela correspond donc à 13 notes. 
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b) L'intervalle séparant deux notes successives. Il peut varier de un à neuf. 


A titre d'exemple, si vous choisissez la valeur 1, la note émise après un mi ne 
pourra être que ré ou fa. 


Par contre, si vous choisissez la valeur 3, la note émise après un mi pourra être : 
ré, do, fa ou sol. 


Le programme affiche en permanence le numéro du domaine choisi, l'intervalle 
choisi, le numéro de la note à deviner (nombre de notes déjà jouées}, votre score 
{nombre de notes reconnues) et le meilleur score du niveau. 


2. Le programme 


100 DRE ERRONÉE € À DICTEE MUSICALE HXXXHHEXEEEREERENAREESX 


i20 GOSUE 7000 

120  GOÜSUE 8000 

140 NN=i: NT=i: C=2: GOUSUE 4000: GOSUB 5000 
150 NH si 


170 FOR N=2 TO NX 
1E0 COPRTE #1, 22 
190 ND=N-5: IE ND 
299 FOR Ne ND TO N-1f 
2iê ee NJ (NN) 


,2: PRINT #1,N; 
1 THEN ND=1 


GOSUE 2600 





IF RND(1)20,.5 THEN CX=-1 





270 NTEMNJ CN) +CXEkINT(RND(I)#IM+1) 
2566 IF NTi1i GK NTeNM THEN Z60 
256 NJ (NN) =NT 

GO GOSUE 3660 

Si © 
3i0 


320 GOSUZ 7000 
330 IF NT=NJ(CNN) THEN GC=SC+r1 ELSE SOUND 1,3000,25 


340 C=2: SEE GOSUE 4066: GOSUR 5000 
35ù LOCATE $1i,26,2: PRINT #1i,SC: 
366 NEXT N 
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nu 


vous?"; 





2000 SP CALCUL COORDONNEES NOTE----------------- 


2020 IF NN€=NX/2 THEN YB=Vi: X=X1+(NN-1) *DX 

2020 IF NNDNX/2 THEN YB=Y2: X=X1+(NN-NX/2-1)#DX 

2040 Y=YB+(NT-1)#(DT+ET) /2+8 

2050 RETURN 

2080 

3000 ‘----------- SP GON NOTE HAUTEUR NT ==" 


3610 





3 SOUND LI ,NT(INT),350 

En FOR Kzi TO 390: NEXT ! 

3040 RETURN 

ÉU50: * 

4000 ‘—----------- CP DESSIN ROND COULEUR € ------------------ 
4010 ‘ 


4020 GOSUE 2000 

4020 MOVE X,Y,C 

4040 PRINT NT$: 

4050 RETURN 

4060 ‘ 

5000 SP AFFICHAGE QUEUE -----------"" 
5010 ‘ 

5020 IF NT£=7 THEN MOVE X+15,Y 
5020 IF NT>7 THEN MOVE X-2,Y-8, 
5040 RETURN 

5050 ‘ 

BO0D ‘= SF EFFACEMENT NOTE EN X,Y 
6010 ‘ 

6070 MOVE X,Ÿ,0: PRINT NT#; 

&0ZO IF (NT-3)#(NT-5)#(NT-7)#(NT-9)#(NT-11)€)0 THEN RETURN 
6040 FOR YT=Y-6-ET/2 TO Y-B+ET/2 

6050 MOVE X,YT,i: DRAW X+16,YT 

6060 NEXT YT 

6070 RETURN 

6080 


-8,C: DRAW X+15,Y+32 
C: DRAN X-2,Y-40 
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7000 
7010 
7020 
75650 
7Ü4û 
7056 
7660 
7070 
7050 
74çû 
7109 

7:10 
7126 
8000 
6910 
8020 
EGTQ 
gGa0 
8950 
8580 
8G70 
6660 
B0S0 
8100 
810 
8120 
6130 
8140 
6150 
8160 
8170 
8180 
Bi90 
6200 
8210 
8220 
6220 
8240 
8250 
B260 
6270 
B280 
8290 
83500 
8510 
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Pa SP LECTURE NOTE PROPOSEE---------- 


WHILE INKEYS<S"": WEND 
NT=NJ(N-1) 
GSGSUR 290 
C=i: GOSUR 4060 
RÈ=INEÉEVS: JF Ré="S THEN 7660 
GOSUE 6006 
R=ASC(RÉ) 
NT=NT+(R=240)#(NTÉNM)-(R=24i1)#(NT>1i) 
IF.R£>52 THEN 7040 
RETURN 
mm SP INITIALISATION PARTIE ----------- 
TAGOFF: CLS 


LOCATE 5,5 

FRINT "DICTEE MUSICALE": 
LOCATE Z,tGi FRINT SE domaines possibies"; 
LOCATE 5,11: FRINT “i DG a S0L*: 

LOCATE S,12: PRINT °3 3: DO a DO"; 

LOCATE 5,13: PRINT "3 4 DO a LA"; 

LOCATE 3,15: FRINT “donaine choisi?"; 
R#=INKEYS#: IF R$="" THEN 8100 

DM=VAL(R#): IF DM<{ OR DM>9 THEN 8100 
FRINT DM; 


LOCATE 3,20: PRINT "intervalle maximum entre"; 
LOCATE 5,21: FRINT "2 notes (1 a 917"; 
R$=INKEYS: IF R$="" THEN 8160 
IMS=VAL(R#): IF IM<i OR IM>9 THEN 6160 
PRINT IH; 

FOR K={f TO 500: NEXT K 


CLS: TAG 
FOR YB=Y2 To ÿ1 STEP Yi-Y2 
FOR I=i TO 5 
Y=YB+I*(DT+ET) 
FOR J=1 TO ET 
MOVE XD,Y+J-1,1 
DRAW XF,Y+J-1 
NEXT J 
NEXT I 
NEXT YB 





äc 
8356 CLE #i 

6:60 LOCATE #i, 2,1 

8370 FRINT #i, “DOMAINE INTERVALLE NOTE SCORE M-SCORE"; 
8380 LOCATE #i, 5,2: PRINT #1, DM; 

8396 LOCATE #i, 15,2: PRINT #1, IM; 

6395 LOCATE #1, 34,2: FRINT #1,MS(DM,IM); 

6406 RETURN 





8410 
GOGD += memes SP INITIALISATION DU JEU ----------------- 
SOC 
: ER=G0: CND=24: CNF=6 
1 Xi=i7 
ë =i6û 
ë: 1 DX=5Z 
x 


SOU Niz2 
FO70 
20806 DIM NJ (NX), NT(I3), MS(5,9) 

5090 DATA 476,426,:79,:56,319,264,293 

5106 DATA 239,215,190,179,159,142 

9110 FOR I=i TO 13: READ NT(I): NEXT I 

9130 ‘ 

91350 SYMBOL AFTER 160 

6140 SYMEOL 160, 60,126,255,255,259,299,126,60 
9150 NT$S=CHR# (180) 

9:69 


9170 INK O,CE: INK 1,CP: INK 2,CND: INK 3,CNP 
8180 WINDOW #1, 1,40,22,25 
S190 PAPER #1,1: PEN #i,3 

FAPER O1 PEN Î{: BORDER ER 

RETURN 





3. Si vous souhaitez personnaliser ce programme 


> Si vous trouvez que le jeu est trop lent ou trop rapide 


Vous pouvez modifier la durée de chaque note en remplaçant, en 3030, la valeur 
300 par un nombre de votre choix. Ainsi, avec : 


3030 FOR K = 1T0 150 : NEXT K 


les notes seront deux fois plus brèves. 
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> Pour modifier le nombre de notes jouées avant la nouvelle note à deviner 


Remplacez, en 190, le nombre 5 (dans ND = N - 5) par une valeur de votre choix. 
Elle représentera le nombre de notes jouées avant celle à deviner. Par exemple 
avec : 


190 ND=N-1 : IF ND<1 THEN ND=1 
le programme ne jouera qu'une seule note avant celle à deviner. 
Par contre, avec : 
190 ND=N-10 : IF ND<1 THEN ND=1 


le programme jouera, à chaque fois, dix notes (du moins, à partir du moment où 
il y en aura déjà dix de représentées). 


Enfin, si vous souhaitez que toutes les notes soient systématiquement rejouées 
avant la note à deviner, remplacez 190 par : 


190 ND=1 


4. Description du programme 


a) Techniques employées, décrites en annexe 


Hasard, 


— Animation. 


b) Le programme principal (100-430) 


120 appelle le sous-programme d'initialisation du jeu. 


130-420 correspondent au déroulement d’une partie ; elles sont répétées 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer : 


130 appelle le sous-programme d'initialisation d’une partie. 


140-150 dessinent et jouent la première note et placent son numéro (1) 
dans le tableau des notes déjà jouées. 


170-360 répètent les instructions qui proposent, à chaque fois une nouvelle 
note à découvrir : 


180 affiche le numéro de la note à découvrir. 


190-240 font entendre les cinq dernières notes (ou toutes les notes lorsqu'il 
y en a moins de cinq) en les faisant ‘‘rougir’’. 
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260-290 choisissent au hasard une nouvelle note (en tenant compte des 
limitations imposées par votre choix de domaine et d'intervalle) et rangent 
sa valeur dans le tableau NJ. 


300 fait retentir la note ainsi déterminée. 
320 appelle le sous-programme qui “‘lit’’” votre proposition. 


330 analyse votre réponse ; si elle est correcte, le score est actualisé, sinon 
un ‘’zap'’ est émis. 


340 dessine la note correcte (quelle que soit votre réponse). 
350 affiche le score. 

380 actualise le meilleur score. 

390-400 vous demandent si vous souhaitez rejouer. 


410 lit votre réponse. 


c) Le sous-programme d'initialisation du jeu (9000-9210) 
9020 détermine les couleurs. 


9030 fixe les limites horizontales des portées et l’abscisse correspondant à 
la première note. 


9040 fixe les ordonnées de la ‘‘base’’ des deux portées. 


9050 fixe la distance entre deux traits successifs d’une portée, l'épaisseur d’un 
trait de portée et la distance horizontale entre deux notes successives. 


9060 calcule le nombre total de notes qui seront proposées. 

9080 réserve les tableaux. 

9090-9110 fixent les notes employées. 

9130-9150 fabrique le caractère représentant une note. 

9170-9200 définissent la fenêtre numéro 1 où s'afficheront les scores et fixent 
les couleurs. 

d) Le sous-programme d'initialisation d’une partie (8000-8400) 

8020-8040 affichent le titre. 

8050-8120 vous font choisir votre ‘’domaine’. 


8130-8190 vous font choisir l'intervalle maximum entre deux notes et 
attendent un instant. 
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8210-8300 dessinent les deux portées. 

8320 initialise le score. 

8330-8340 déterminent la note la plus haute, compte tenu du domaine choisi. 

8350-8400 affichent les ‘‘titres'’ des différents scores, le domaine et l'inter- 
valle maximum. 

e) Le sous-programme d'affichage d'un ‘‘’rond’' de couleur C (4000-4050) 

Il affiche la note (sans queue) dont la position sur la portée est définie par NN et NT. 

4020 appelle le sous-programme déterminant les coordonnées de la note. 


4030-4040 dessinent la note (sans queue) dans la couleur C. 


f) Le sous-programme de lecture de la note proposée (7000-7110) 


7030 définit la hauteur de la note (blanche) à afficher comme étant celle de la 
dernière note jouée. 


7040 appelle le sous-programme de détermination des coordonnées de cette 
note. 


7050 dessine cette note (en blanc). 
7060 attend que vous frappiez une touche. 
7070 efface la note blanche. 


7080-7090 déterminent la ‘’hauteur’’ dé la note blanche, compte tenu du 
déplacement demandé. 


7100 examine si la barre d'espace a été pressée. 


5. Liste des variables 
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CE Couleur de fond de la zone où apparaissent les portées. 

CP Couleur des traits des portées et du fond de la fenêtre d'affichage 
des scores. 

BR Couleur du tour de l'écran. 

CND Couleur représentant une note définitive (ici jaune). 

CNJ Couleur prise par une note, tandis qu’elle est jouée par le pro- 


gramme (ici rouge) et couleur des scores. 


XD,XF 
X1 

Y1 

Y2 

DT 

ET 

DX 

NX 
NJ(NX) 
NT(13) 
MS(3,9) 
DM 

IM 

YB 

SC 

NM 


NN 
NT 


X, Ÿ 


Abscisses (graphiques) de début et de fin des deux portées. 
Abscisse de la première note. 

Ordonnée ‘‘de base'’ de la première portée. 

Ordonnée ‘’de base’ de la seconde portée. 

Intervalle séparant deux lignes consécutives d’une portée. 
Épaisseur des lignes des portées. 

Écart entre les abscisses de deux notes successives. 
Nombre total de notes jouées au cours d’une partie. 
Tableau contenant les hauteurs des notes déjà jouées. 
Tableau contenant les treize notes possibles. 

Tableau des meilleurs scores. 

Domaine choisi (1 à 3). 

Intervalle maximum choisi (1 à 9). 

Ordonnée ‘’de base’ de l’une des deux portées. 

Score. 


Hauteur de la plus haute note possible, compte tenu du domaine 
choisi. 


Numéro de note ‘’courante’. 
Hauteur de note ‘‘courante”’. 
Couleur de note ‘‘courante’. 
Numéro de la dernière note proposée. 


Numéro de la note à partir de laquelle s'effectue la répétition qui 
précède l'émission de la dernière note. 


Coordonnées d’une note courante. 


Variables auxiliaires 


R$ A 
Y  CX 
YT 
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Annexe l 
Hasard 


Bien qu'aucun des jeux de ce livre ne soit ce que l’on a coutume d'appeler des 
‘jeux de hasard””, il se trouve que le hasard intervient dans la plupart d’entre eux. 
C'est par exemple le cas lorsqu'il faut choisir ‘’au hasard’’ la position d’un objet 
sur l'écran, une lettre de l'alphabet, etc. 


Comment choisir une valeur au hasard 


La fonction RND fournit une valeur quelconque comprise entre O (inclu) et 1 (exclu). 
Généralement, nous avons besoin d’une valeur entière comprise entre deux valeurs 
données que nous noterons n et p. 


M Voyons déjà comment procéder quand n vaut 1, autrement dit lorsque l'on 
désire obtenir une valeur entière comprise entre 1 et n (1 et n compris). 
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Expressions Valeurs correspondantes 





RND (1) | entre O (compris) et 1 (exclu) 

nxRND (1) entre O (compris) et n (exclu) 

nxRND (1) + 1 | entre 1 (compris) et n+1 (exclu) 
| 


INT(nxRND (1) + 1) | entière entre 1 (compris) et n (compris). 





Quelques exemples : 

e pour tirer un dé (nombre entre 1 et 6) dans X : 
X=INT(6+RND(1)+1) 

e pour tirer une couleur d'encre, entre O et 3, dans C : 
C=INT(4+RND(1)) 


M Voyons maintenant le cas plus général évoqué précédemment : obtenir un 
nombre entier compris entre p (compris) et n (compris) : 


Expressions | Valeurs correspondantes 
RND {1} entre O (compris) et 1 (exclu) 
(n-p+1)+RND (1) | entre O (compris) et n-p+1 (exclu) 
p+{n-p+1)+RND (1) | entre p (compris) et n+1 (exclu) 
INT(p+{n-p+1}*RND (1)) entière entre 1 (compris) et n (compris). 





La dernière expression peut également s'écrire : 
p+INT((n-p+1)+RND (1)) 
Quelques exemples : 
e pour tirer dans X une coordonnée d'écran comprise entre 2 limites X1 et X2 : 
X=X1 + INT(RND (1)+(X2-X1+1)] 


e pour tirer dans C le code ASCII d'une lettre comprise entre À (code 65) et 
Z (code 90) : 


C=65+INTIRND (1)+26) 
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Annexe 2 


Animation 


1. Le principe 
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Pour donner l'impression qu'un objet se déplace sur l'écran, une méthode consiste 
à le faire apparaître un instant en un emplacement donné, l'effacer puis le faire 
apparaître en un emplacement voisin, et ainsi de suite. Si le rythme ainsi créé 
est suffisamment rapide, l'objet donnera l'impression de se déplacer de manière 
continue. 


Voici à titre d'exemple, un petit programme déplaçant le caractère ‘+’ de gau- 
che à droite de l'écran : 


100 Y=12 

110 FOR X=1 TO 40 

120 LOCATE X,Y : PRINT ‘’*°""; 
130 FOR K=1 TO 100 : NEXT K 
140 LOCATE X,Y : PRINT“ ” 

150 NEXT X 


Notez l'instruction 130 qui permet de réaliser une courte attente. Dans la prati- 
que, il y aura suffisamment de choses à faire, entre l'apparition et la disparition 
du mobile, pour qu'il ne soit plus nécessaire de ralentir le rythme ainsi obtenu. 


2. Les limitations du déplacement 


Lorsqu'un mobile se déplace sur l'écran, il est nécessaire d'imposer des restric- 
tions à son déplacement : 


e pour éviter des collisions où pour vérifier qu'une cible est atteinte. Cela néces- 
site d'examiner le contenu du prochain emplacement prévu afin de prendre 
la décision adéquate. 


e pour éviter qu'il ne sorte de certaines limites qu'on lui impose. Il peut s'agir 
de limites d'un domaine de jeu ou tout simplement de celles de l'écran. 
N'oubliez pas, par exemple, que l'instruction : 


LOCATE X,Y 


ne peut s’exécuter qu'avec des valeurs de X comprises entre 1 et 40 et des valeurs 
de Ÿ comprises entre 1 et 25. 


La plupart du temps, pour résoudre de tels problèmes, vous serez amenés à con- 
sidérer deux jeux de coordonnées pour chaque mobile. Par exemple, dans nos 
programmes, nous avons souvent utilisé : 


e X,Y pour les coordonnées du mobile à un instant donné. 


e XN,YN pour les coordonnées du prochain emplacement prévu pour le mobile. 
Leur calcul se fait à partir des valeurs de X,Y, d'éventuelles limitations et, s'il 
y a lieu, en fonction de commandes de déplacement transmises par le clavier 
(touches fléchées par exemple). 


A chaque pas de déplacement, on calcule XN et YN, puis on examine si le mobile 
peut s’y déplacer. Dans ce cas, on efface le contenu de l'emplacement de coor- 
données X et Ÿ ; puis on dessine le mobile en XN,YN en actualisant les valeurs 
de X et Y par les instructions. 


X=XN 
Y=YN 
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Annexe 3 


Lecture du clavier 
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En Basic AMSTRAD, il existe une instruction et deux fonctions qui permettent 
‘‘’d'accéder’’ au clavier : INPUT, INKEYS$ et INKEY. Comme nous allons le voir, 
l'instruction INPUT n'est pas du tout adaptée à la conduite de mobiles par l'inter- 
médiaire du clavier (déplacement d'une base de tir, d’une raquette, d’une sou- 
coupe, etc...). La fonction INKEY$, par contre, sera utilisable dans certaines cir- 
constances particulières. Dans les autres cas, il sera nécessaire de recourir à la 
fonction INKEY comme nous le montrerons dans l’annexe 4 : lecture rapide du 
clavier. 


L'instruction INPUT 


*INPUT lit une chaîne de caractères en l’affichant à l'écran en même temps que 
vous la composez. Son action se termine lorsque vous frappez la touche ‘‘entrée”’. 
Cette instruction qui ‘‘’bloque’’ le programme tant que vous n'avez pas fini de 
frapper votre message, est inutilisable pour commander des déplacements. 


La fonction INKEY$ 


Elle se contente d'examiner si une touche du clavier est enfoncée. Si c'est le cas, 
elle restitue le caractère correspondant ; dans le cas contraire, elle fournit une 
‘chaîne vide’’. En apparence, cette fonction devrait résoudre les problèmes de 
contrôle de mobile puisqu'elle ne bloque plus le programme. Malheureusement, 
une imperfection de taille apparaît. Pour vous en convaincre, essayez ce petit 
programme : 


100 CLS : LOCATE 1,10 

110 FOR 1=1 TO 30 

120 A$=INKEYS : IF A$=""THEN 120 
130 PRINT AS ; 

140 NEXT I 


Vous constatez que, tant que vous n’appuyez sur aucune touche, il ne se passe 
rien : l'instruction 120 ‘’boucle sur elle-même’. Si vous pressez, par exemple, 
la touche F, le programme vous écrit immédiatement F. Par contre, si vous lais- 
sez cette touche enfoncée en permanence, vous découvrirez qu'il s'écoule un 
temps assez long avant l'apparition du second F ; puis les lettres suivantes arri- 
vent ensuite à un rythme régulier et plus rapide. 


En fait, vous observez le même phénomène que lorsque vous tapez plusieurs fois 
la même lettre, grâce à la ‘‘répétition automatique‘. 


Nous n'entrerons pas dans le détail du fonctionnement de INKEY$ ; nous retien- 
drons seulement qu'il est tributaire du rythme de la répétition automatique. Son 
emploi rend alors désagréable la commande de déplacement d'un mobile par les 
quatre touches fléchées. || existe toujours quelques circonstances où ce problème 
de rythme n'apparaît pas ; c'est notamment le cas lorsque les touches servent, 
non pas à commander chaque déplacement du mouvement, mais simplement à 
des changements de direction. C'est également le cas lorsque l'on peut se per- 
mettre un déplacement lent ou irrégulier (exemple : drôles de mines). 


La commande des déplacements par INKEY$ 


On peut utiliser n'importe quelle touche du clavier pour commander le mouve- 
ment. Si l’on convient, par exemple, que la touche P correspond à la direction 
‘vers le haut'” de l'écran, on pourrait ‘‘tester’’ l'enfoncement de cette touche par : 


A$=INKEYS : IF A$="P" THEN... 


Toutefois, il paraît plus judicieux d'employer la touche fléchée ‘17, Dans ces 
conditions, le test ne peut plus se faire par comparaison directe de A$ avec un 
caractère donné, car la touche ‘’’’ ne correspond pas à un carractère représen- 


table (il en va de même de ‘‘entrée’’, ‘’raz'’, >, , +, etc...). Pour manipuler ces 
caractères, il est nécessaire d'en connaître le ‘’code ASCII’. 
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Voici les codes ASCII correspondant aux quatre touches fléchées : 











Touches Code 
— 242 
— 243 
t 240 
} 241 








Pour savoir si la touche ‘’{'’ a été pressée, il suffira : 
— soit de comparer A$ avec CHR$(240) : 
IF A$=CHRS(240) THEN... 
— soit de comparer avec 240 le code ASCII du caractère contenu dans AS : 


IF ASCIAS$)= 240 THEN... 


Exemple : déplacement lent 

Soit un mobile ayant, à un instant donné les coordonnées X et Ÿ. On souhaite 
le déplacer à l’aide des touches fléchées. Voici les instructions permettant de cal- 
culer les nouvelles coordonnées XN, YN, en fonction de la touche pressée (notez 
qu'ici on attend qu'une touche soit pressée). 


180 DS=INKEYS : IF D$="""" THEN 180 
190 D=ASC(D$) 

200 XN=X + (D=242) - (D=243) 
210 YN=Y + (D=240) - (D=241) 


N'oubliez pas qu'une expression ‘‘logique”’ telle que D = 240 prend la valeur -— 1 
lorsqu'elle est vraie et la valeur O lorsqu'elle est fausse. 


Dans cet exemple, nous n'avons pas prévu de limitations du déplacement, ce qui 
sera nécessaire en pratique. Ainsi, si l’abscisse du mobile doit rester comprise 
entre deux limites X1 et X2, l'instruction 200 peut être remplacée par : 


200 XN=X -(D=242) « (X > X1) + (D=243) « (X < X2) 


REMARQUE : la méthode que nous venons de décrire est utilisée dans les jeux sui- 
vants : drôles de mines, embarquement immédiat, flip-flop, dictée musicale. 


Exemple de commande de changement de direction 


Soit un mobile ayant, à un instant donné les coordonnées X et Ÿ et une direction 
de déplacement DL codée ainsi : 


DL = 242 : déplacement vers la gauche, 
DL = 243 : déplacement vers la droite, 
DL = 241 : déplacement vers le bas, 


DL = 240 : déplacement vers le haut. 


Nous souhaitons déterminer la nouvelle direction, puis la nouvelle position du 
mobile, en tenant compte d’une touche éventuellement pressée. Si aucune tou- 
che n'est enfoncée, la direction reste inchangée, et le calcul des nouvelles coor- 
données se fait de facon usuelle, par exemple : 


XN = X + (DL=242) - (DL = 243) 


Si une touche a été enfoncée, il faut en tenir compte pour modifiet DL, à condi- 
tion que cette touche soit bien l’une des quatre flèches ; cette vérification se fait 
en s’assurant que le code ASCII correspondant est compris entre 240 et 243. 


Voici une facon de résoudre ce problème, en créant une valeur intermédiaire DN, 
contenant le code de la touche pressée. Par convention, nous yÿ plaçons la valeur 
zéro quand aucune touche n'est frappée : 


R$=INKEYS : IF R$="""" THEN DN=0 ELSE DN=ASCIRS) 
IF DN> = 240 AND DN< = 243 THEN DL=DN 

XN=X + (DL=242) - (DL=243) 

YN=Y + (DL=240) - (DL=241) 


Là encore, il est généralement nécessaire de limiter le déplacement. 


REMARQUE : cette méthode est employée dans les jeux suivants : reconstitution, 
karting. 


La mémoire du clavier 


Nous avons dit que INKEY$ fournissait le caractère correspondant à la touche 
pressée au moment où l’on ‘‘exécutait’’ cette fonction. En fait, ce n’est pas tou- 
jours exact dans la mesure où votre Amstrad dispose d'une ‘mémoire de cla- 
vier’’ dans laquelle il mémorise la succession des touches que vous frappez (jusqu'à 
concurrence de 20). La fonction INKEY$ fournit, non pas le dernier caractère 
frappé, mais le plus ancien mémorisé (il est alors naturellement ‘’éliminé’” de la 
mémoire clavier). Certes, il s'agit souvent de la même chose mais voici un petit 
programme qui va vous prouver qu'il n’en est pas toujours ainsi. 


100 FOR 1=1 TO 5000 : NEXT | 
110 FOR 1=1 TO 10 

120 PRINT INKEYS 

130 NEXT I 
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La ligne 100 réalise une ‘‘’boucle d’attente'’ de quelques secondes. Exécutez ce 
programme en tapant sur quelques touches pendant l'attente. Vous constatez 
que, tout d'abord, rien. ne s'affiche à l'écran. Puis, au bout de quelques secon- 
des, tous les caractères frappés (ou du moins les 10 premiers) apparaissent, à 
raison d'un par ligne. 


Ce mécanisme de ‘’mémoire de clavier’’ peut présenter des avantages et des 
inconvénients. 


Un des avantages tient à ce que vous pouvez frapper certaines choses à l'avance. 
Encore faut-il que le jeu s'y prête ! 


Le principal inconvénient réside dans le risque de ‘‘lire’’ quelque chose qui a été 
tapé plus tôt. Ce sera le cas, par exemple, lorsque le programme vous deman- 
dera si vous souhaitez rejouer et qu'il prendra comme réponse votre dernière com- 
mande de déplacement ! il est toutefois facile de résoudre ce problème en com- 
mencçant par ‘’vider'’ la mémoire clavier par des instructions telles que : 


100 RS$=INKEYS : IFRS < > ‘""" THEN 100 
ou 
100 WHILE INKEYS$ < > ‘""" : WEND 


Annexe 4 
Lecture rapide du clavier 


Dans l'annexe ‘‘lecture du clavier’’, nous avons vu que la fonction INKEY$ ne 
permettait de réaliser que certains types de déplacements de mobiles. Notam- 
ment, elle ne convient pas aux déplacements rapides et réguliers. 


La fonction INKEY 


Malgré ses défauts, la fonction INKEY$ avait un énorme avantage : celui de nous 
fournir le caractère frappé, quel que soit ce caractère. 


La fonction INKEY ne présente aucun des inconvénients de INKEY$ mais elle ne 
permet de recueillir des informations que pour une touche donnée. Plus précisé- 
ment, si l’on souhaite examiner 10 touches différentes, il faudra employer 10 fois 
cette fonction. 
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Chaque touche porte un numéro ; citons : 





Touche :_ Numéro 











| barre d'espace | 47 

— 8 
[= 1 

t | 0 | 
| 2 








(Attention, ce n'est pas le caractère ASCII d'un des caractères correspondant 
à cette touche). 


L'expression INKEY (47) représente ‘‘l'état'’ de la touche de numéro 47 ; INKEY 
(65) sera l’état de la touche numéro 65. Cet état est ‘’codé’’ de cette facon : 


— 1 signifie que la touche n’est pas enfoncée 
O signifie que la touche est enfoncée 


Il existe d'autres états correspondants aux cas où SHIFT ou CTL sont enfoncés 
en même temps que la touche concernée. Nous n'en aurons pas besoin ici. 


Pour savoir, par exemple, si la touche +— est enfoncée, on procèdera ainsi : 


IF INKEY (8)=0 THEN... 


2. Exemple de commande de déplacement 
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Soit un mobile ayant, à un instant donné, les coordonnées X et Y. On souhaite 
le déplacer à l’aide des touches fléchées. Voici les instructions permettant d'en 
calculer les nouvelles coordonnées XN,YN en fonction de la touche pressée : 


200 DG=INKEY(8) : DD=INKEY(1) 
210 DH=INKEY(0) : DB=INKEY(2) 
220 XN=X + (DG=0) - (DD=0) 
230 YN=Y + (DH=0) - (DB =0) 


Là encore, il sera souvent nécessaire, en pratique, de limiter le déplacement. Ainsi, 
par exemple, pour imposer que l’abscisse du mobile reste comprise entre X1 et 
X2, la ligne 220 pourra être remplacée par : 


220 XN=X - (DG=0) * IX > X1) + (DD=0) + (X < X2) 


REMARQUE : cette méthode est employée, avec éventuellement quelques varian- 
tes, dans les jeux suivants : goal, mouches, ballons, briques, envahisseurs, billard. 


Annexe 5 


Examen du contenu 
de l'écran 


Dans de nombreux jeux, il est nécessaire de connaître, à un instant donné, ce 
qui se trouve en un certain emplacement de l'écran. Par exemple, vous pouvez 
vouloir vérifier qu’un bolide peut se déplacer d’une position, sans heurter un mur. 
Ou encore, vous avez besoin de savoir si le prochain emplacement d'un missile 
correspond à une case vide ou, au contraire, à l’une des cibles à atteindre. 


En fait, le Basic de votre AMSTRAD ne vous permet pas de connaître le carac- 
tère affiché à un emplacement texte de coordonnées données. Par contre, il vous 
permet, dans une certaine mesure, d'en connaître la couleur, grâce à la fonction 
TEST. Néanmoins, cette dernière utilise les coordonnées graphiques, ce qui impose 
une petite ‘‘gymnastique”’ lorsque le reste du programme travaille en ‘’coordon- 
nées texte‘. 


Correspondance entre coordonnées texte et coordonnées graphiques 


Notons tout d’abord que les coordonnées texte (du moins dans le sens horizon- 
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tal) dépendent du mode choisi. Il n’en va pas de même pour les coordonnées gra- 
phiques. Considérons le cas le plus fréquent du mode numéro 1. 


Chaque caractère y est représenté par un ‘‘carré’’ de 16 x 16 points. Le schéma 
de la page suivante représente le coin inférieur gauche de l’écran, en précisant 
les deux types de coordonnées. 


On peut montrer que tous les points graphiques d’un emplacement texte de coor- 
données X,Y ont des coordonnées comprises : 


— entre 16 * (X —- 1) + 1 et 16 * (X — 1) + 16 pour les abscisses 
— entre 16 * (25 — Y) + 1 et 16 * (25 — Y) + 16 pour les ordonnées 


La fonction TEST 


Elle fournit le numéro d'encre correspondant à un point de coordonnées graphi- 
ques données. En mode 1, ce numéro est donc compris entre O et 3. 


Or, la plupart du temps, nous avons besoin, non pas de connaître la couleur d'un 
point graphique donné, mais plutôt de répondre à des questions telles que : 


e L'emplacement texte X,Y est-il disponible ? 
e Quel est le caractère affiché à l'emplacement texte X,Y ? 


A priori, on pourrait penser que de telles questions nécessitent d'examiner tous 
les points graphiques correspondants à un emplacement texte. Cela conduirait 
à 16 x 16 = 256 tests ! (en toute rigueur 8 x 8 suffiraient, compte tenu de 
la ‘résolution’ du mode 1). 


En pratique, on s'arrange pour n'avoir à considérer qu'un seul point, bien choisi. 
Ainsi, en ce qui concerne la première question, il n’y aura généralement qu'un 
éventail restreint de caractères susceptibles d’être présents en un emplacement 
donné. On n'examinera alors qu'un seul point graphique dont on est sûr qu'il appar- 
tient à tous les dessins des caractères que l'on cherche à détecter. 


Quant à la seconde question, on ne pourra y répondre de façon simple que lors- 
que le nombre de caractères possibles est suffisamment petit pour que chacun 
possède sa propre couleur. Là encore, on choisira un point graphique apparte- 
nant aux différents caractères. Sa couleur nous renseignera alors sur la nature 
du caractère examiné. 
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Imprimerie de la Manutention à Mayenne 
Dépôt légal : Avril 1986 
N° d'éditeur : 4467 


Vous aimez les jeux sur mesure! Vous souhaitez aller au-delà 
de la simple consommation passive de produits figés ! Alors ce livre 
vous est destiné, et ceci quel que soit votre degré de pratique de la 
programmation en Basic. 


Comme il se doit, il vous offfre tout d’abord un éventail de jeux 
variés (classiques ou originaux) exploitant pleinement les formidables 
capacités graphiques et sonores de votre Amstrad. Suivant votre humeur, 
vous pourrez ainsi affiner vos réflexes, exercer votre mémoire, améliorer 
vos capacités de raisonnement ou encore vous former une «oreille» 
de musicien. 


Mais ensuite, et surtout, il vous offre l'opportunité d'adapter chaque 
jeu en fonction de vos goûts et vos désirs. || vous suffit pour cela de 
choisir parmi les nombreuses propositions de personnalisation. Elles 
sont expliquées très clairement et ne nécessitent absolument aucune 
connaissance du Basic. 


Si, de surcroît, vous faites partie de ceux qui souhaitent aborder 
la programmation des jeux sur Amstrad, ce livre vous en fournira toutes 
les clés. D'une part, les chapitres «annexes» vous initieront aux techni- 
ques de base spécifiques à ce genre de programmes (hasard, animation, 
lecture du clavier, examen du contenu de l'écran). D'autre part, les 
explications très détaillées qui accompagnent chaque jeu vous feront 
découvrir toutes les «ficelles du métier ». 


Quoiqu'il en soit, donnez libre cours à votre imagination et … 


A vous de jouer ! 
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